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IDENTIFICATION 
PRODUCT CODE: AC-A910B-MC 
PRODUCT NAME: CZKCEBO DDCMP MD L UNIT TSTS 
DATE: AUGUST 1980 
MAINTAINER: DIAGNOSTICS-MERRIMACK 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
oO FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977, 1980 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THE FUNCTION OF THE KMC11 DIAGNOSTICS IS TO VERIFY THAT THE 
OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE ALL OPERATIONS 
OF THE KMC11 ARE CORRECT IN ITS ENVIRONMENT. 


PARAMETERS MUST BE SET UP TO ALERT THE DIAGNOSTICS TO THE 
KMCi1 CONFIGURATION. THESE PARAMETERS ARE CONTAINED IN THE 
STATUS TABLE AND ARE GENERATED IN TWO WAYS: 1) MANUAL 
INPUT - THE OPERATOR ANSWERS QUESTIONS. 2) AUTOSIZING =- THE 
PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY. 


DZKCE TESTS THE KMC-11 LINE UNIT (M8201 OR M8202). IT 
PERFORMS WRITE/READ TESTS ON THE KMC LINE UNIT REGISTERS. IT 
CHECKS FOR PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION IN 
DDCMP MODE. THE MODEM SIGNALS ARE ALSO CHECKED. DZKCE 
REQUIRES A KMC_ MICRO-PROCESSOR (M8204) TO RUN. FOR BEST 
DIAGNOSIS A_TURN-AROUND CONNECTOR SHOULD BE INSTALLED, HOWEVER 
THE DIAGNOSTIC WiLL RUN WITHOUT IT (SOME TESTS ARE SKIPPED). 


CURRENTLY THERE ARE FOUR OFF LINE DIAGNOSTICS THAT ARE 10 BE 
RUN IN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 
WILL BE DETECTED AT AN EARLY STAGE. 


NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
THE FOUR DIAGNOSTICS ARE: 


- DZKCC CREV] BASIC W/R AND MICRO-PROCESSOR TESTS 
- DZKCD CREV] JUMP AND MAIN MEMORY TESTS 

. OZKCE CREV) DDCMP LINE UNIT TESTS 

. DZKCF CREV) BITSTUFF LINE UNIT TESTS 

DZKCA CREV) KMC11 CPU MICRO-DIAGNOSTICS 


Wn WN 
. 


NOTE: AS UPDATES OCCUR, THE NAMES OF THESE DIAGNOSTICS MAY VARIE. 


REQUIREMENTS 
EQUIPMENT 


ANY PDP11 FAMILY CPU rr AN LSI-11) WITH MINIMUM 8K MEMORY 
ASR 33 (OR EQUILIVALENT) 

KMC11-AN IOP (M8204) 

KMC11-DA OR KMC11-MD OR KMC11-MA 


SEQ 0002 
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90 

91 

; 2.2 STORAGE 

94 PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND 

95 BOOTSTRAP LOADER RESIDE. LOCATIONS 2100 THRU 2300; CONTAIN 

96 THE “"STATUS TABLE’’ INFORMATION WHICH IS GENERATED AT START OF 

97 DIAGNOSTICS BY MANUAL INPUT (QUESTIONS) OR AUTOMATICALLY 

98 (AUTO-SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 


ALTERED BY THE OPERATOR. 
LOADING PROCEEDURE 
aut METHOD 


ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
ABSOLUTE LOADER. NGTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 
AS DISK ,MAGTAPE ,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS 
A a MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 


ee] 


ABSOLUTE LOADER STARTING ADDRESS *500 
MEMORY * SIZE 


4K 17 
8K 37 
12K 57 
16K 77 
20K 117 
24K 137 
28K 157 


3.1.1 PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 
(ALSO PLACE “HALT' SW UP) 


3.1.2 DEPRESS “LOAD ADDRESS’ KEY ON CONSOLE AND RELEASE. 


3.1.5 DEPRESS “START KEY* ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
BE LOADING INTO CPU) 


MW CORNAOUEUN CO ODNANE WN -"OSRURRR ADE SS 
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4. STARTING PROCEEDURE 


A. SET SWITCH REGISTER TO 000200 
B. DEPRESS “LOAD ADDRESS’ KEY AND RELEASE 
- SET SWR TO ZERO FOR ‘AUTO SIZING’ OR SWR BITO=1 FOR MANUAL 

INPUT (QUESTIONS) OR SWR BIT7=1 TO USE EXISTING PARAMETERS 
SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN KMC11 
DIAGNOSTIC. 

D. DEPRESS “START KEY" AND RELEASE. THE PROGRAM WILL TYPE 
MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START 
UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 


MAP OF KMC11 STATUS 


PC CSR STATI STAT2 STATS 
002100 160010 045310 177777 000000 
002110 160020 045320 177777 000000 


THE PROGRAM WILL TYPE 'R' AND PROCEED TO RUN THE DIAGNOSTIC. 
THE ABOVE IS ONLY AN EXAMPLE. THIS WOULD INDICATE THE STATUS 
TABLE STARTING AT ADD. 2100 IN THE PROGRAM. IN THIS EXAMPLE 
THE TABLE CONTAINS THE INFORMATION AND STATUS OF TWO KMC11'S. 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
1S DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 


HELP. 

IF THE DIAGNOSTIC WAS STARTED WITH SWOO=1 INDICATING MANUAL 

PARAMETER INPUT THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE 
\ QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 


ig MANY KMC11°S TO BE TESTED?1 


CSR ADDRESS?160010 

VECTOR ADDRESS?310 

BR PRIORITY LEVEL? (4,5,6,7)75 

WHICH LINE UNIT? IF NONE TYPE ‘N’’, IF M8201 TYPE ‘I’, IF 
M8202 TYPE °'2°'?1 


1S THE LOOP BACK CONNECTOR ON?Y 
(ONLY IF 8201 AND LOOP BACK) 
WHICH MODEM TYPE, TYPE "'D'’ FOR KMC11-DA (RS232C). OR 

TYPE "'F’’ FOR KMCI1-FA (V.35)? D 

SWITCH PAC#1 (DDCMP LINE#) 2377 

SWITCH PAC#2 (88873 BOOT ADD) 2377 

FOLLOWING THE QUESTIONS THE STATUS MAP IS PRINTED OUT AS 
DESCRIBED ABOVE, THE INFORMATION IN THE MAP REFLECTS THE 
ANSWERS TO THE QUESTIONS. IF THE DIAGNOSTIC WAS STARTED WITH 
SWOO=0 AND $WO7=0 (AUTO-SIZING) THEN NO QUESTIONS ARE ASKED 
AND ONLY THE STATUS-MAP IS PRINTED OUT. IF AUTO-SIZING IS 
USED THE STATUS INFORMATION MUST BE VERIFIED 10 BE CORRECT 
(MATCH THE HARDWARE). IF IT DOES NOT MATCH THE HARDWARE THE 
DIAGNOSTIC MUST BE RESTARTED WITH SWOO=1 AND THE QUESTIONS 
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187 
188 
12 4.1 CONTROL SWITCH SETTINGS 
191 SW 15 SET: HALT ON ERROR 
192 SW 14 SET: LOOP ON CURRENT TEST 
193 SW 13 SET: INHIBIT ERROR PRINT OUT 
194 SW 12 SET: INHIBIT TYPE OUT ABELL ON ERROR. 
195 SW 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 
196 SW 10 SET: ESCAPE TO NEXT TEST ON ERROR 
197 SW 09 SET: LOOP WITH CURRENT DATA 
198 SW 08 SET: CATCH ERROR AND LOOP ON IT 
199 SW O07 SET: USE PREVIOUS STATUS TABLE. 
200 SW 06 SET: HALT IN ROMCLK ROUTINE BEFORE CLOCKING 
201 MICRO-PROCESSOR 
she SW 05 SET: RESERVED 
20 SW 04 SET: RESERVED 
204 Sw 03 SET: RESELECT KMC11'S DESIRED ACTIVE 
05 SW O02 SET: LOCK ON SELECTED TEST 
06 SW 01 SET: RESTART PROGRAM AT SELECTED TEST 
07 SW 00 SET: BUILD NEW STATUS TABLE FROM QUESTIONS. (IF Sw07=0 
08 AND SWOO=0 A NEW STATUS TABLE IS BUILT BY 
$9 AUTO-SIZING) 
a SWITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 
212 WHILE THE DIAGNOSTIC IS RUNNING. SWITCHES 00-03 AND SWITCH 07 
213 ARE STATIC, AND ARE USES ONLY ON STARTING OR RESTARTING THE 
214 DIAGNOSTIC. 
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4.1.2 SWITCH REGISTER OPTIONS (AT START UP) 


Sw 01 RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 
TRYING TO SELECT A TEST, THE REASON BEING IS THAT THE 
PROGRAM HAS TO CLEAR AREAS /AND SET UP PARAMETERS. 
WHEN THIS SWITCK IS USED THE DIAGNOSTIC WILL ASK TEST 
NO.? ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED 
4 CARRIGE RETURN TO BEGIN EXECUTION AT THE SELECTED 


SW 02 LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 
$WO1 WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE 
SELECTED TEST. HITTING ANY KEY ON THE CONSOLE WILL 
LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 
1S HIT AGAIN. IF SWO2=0 WHEN SWO1 IS USED. THE 
PROGRAM WILL BEGIN AT THE SELECTED TEST AND CONTINUE 
NORMAL OPERATIONS. 


Sw 03 RESELECT KMC11°S DESIRED ACTIVE. PLEASE NOTE THAT A 
MESSAGE IS TYPED OUT FOR SETTING THE SWITCH REGISTER 
EQUAL TO KMC11°S ACTIVE. THIS MEANS IF THE SYSTEM HAS 
FOUR KMC11S; BITS 00,01,02,03 WILL BE SET IN LOC 
"KMACTV' FROM THE SWITCH REGISTER. USING THIS 
SWITCH(SWOO) ALTERS THAT LOCATION; THEREFORE IF FOUR 
KMC11S ARE IN THE SYSTEM **2)0 NOT#** SET SWITCHS 
GREATER THAN SW 035 IN THE UP POSITION. THIS WOULD BE 
A FATAL ERROR. DO NOT SELECT MORE ACTIVE KMC11S_ THAN 
THERE 1S INFORMATION ON IN THE STATUS TABLE. 


METHOD: A: LOAD ADDRESS 200 

B: START WITH Sw 00=1 

C: PROGRAM WILL TYPE MESSAGE 

D: SET A SWITCH FOR EACH KMC DESIRED ACTIVE. 
EXAMPLE: IF YOU HAVE 4 KMC'S BUT ONLY WANT TO 
RUN a FIRST AND THE LAST SET SWR BITS 0 AND 
3 = 1. PRESS CONTINUE 

E: NUMBER (IF VALID) WILL BE IN DATA LIGHTS 
(EXCLUDING 11/05) 

rt SET WITH ANY OTHER SWITCH SETTINGS DESIRED. 


PRESS CONTINUE. 
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4.1.3 DYNAMIC SWITCHES 
FRROR SWITCHES 


Je SW 12 DELETE PRINT OUT/BELL ON ERROR. 

# SW 13 DELETE ERROR PRINTOUT. 

+ i SW 15 HALT ON THE ERROR. 

4. SW 08 GOTO BEGINNING OF THE TEST(ON ERROR). 
Ja SW 10 GOTO NEXT TEST(ON ERROR). 


SCOPE SWITCHES 


1. SW06 HALT IN ROMCLK ROUTINE BEFORE CLOCKING 
MICRO-PROCESSOR INSTRUCTION. THIS ALLOWS THE 
OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN 
THE STATIC STATE BEFORE IT IS CLOCKED. HIT 
CONTINUE TO RESUME RUNNING. 

(IF ENABLED BY "SCOP1*) ON AN ERROR; IF AN ‘*' IS 
PRINTED IN FRONT OF THE TEST NO. (EX. *TEST NO. 
10 ) SWO9 IS INCORPORATED IN THAT TEST AND 
THEREFORE SWO9 IS USUALLY THE BEST SWITCH FOR THE 
SCOPE LOOP (SW14=0, SW10=0, SWO9=1, SWO8=0). IF 
SWO9 IS NOT ENABELED; AND THERE IS A HARD ERROR 
(CONSTANT); SWO8 IS BEST. (SW14=1,0, Swi0=0, 
SWO9=0, SWO8=1). FOR INTERMITTEMT ERRORS; SW14=1 


2. Sw0g9 


ERROR. ( 
3. Swit INHIBIT INTERATIONS. 
4. Swi4 LOOP ON CURRENT TEST. 


4.2 STARTING ADDRESS 


STARTING ADDRESS IS AT 000200 THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE KMC11 DIAGNOSTICS. (SEE SECTION 4.0) 


NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 
IS UNDER ACT11 OR XXDP CONTROL AND WiLL ACT 
ACCORDINGLY AFTER ALL AVAILABLE KMC11°S ARE TESTED THE 
PROGRAM WILL RETURN TO "XXDP’ OR ‘ACT-11". 


5. OPERATING PROCEDURE 
WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 


SECTION 4.0 WILL BE PRINTED, AND PROGRAM WILL BEGIN RUNNING 
5 THE DIAGNOSTIC 
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5.2 PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


ts HALT ON ERROR (VIA SW 15=1) WHEN EVER AN ERROR OCCURS. 
2. CLEAR SW 15. 
3. SET SW 14: (LOOP ON THIS TEST) 


SET SW 135: (INHIBIT ERROR PRINT OUT) 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 
ERROR MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR 
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT; LOOK IN 
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 
NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF 
THE TEST CAN BE DETERMINED. 


6. ERRORS 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND 
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND Sw 
12=0). _IN MOST CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 
ia chnaee ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 


6.2 ERROR RECOVERY 


IF FOR SOME REASON THE KMC11 SHOULD ‘HANG THE BUS‘ (GAIN 
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 
AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR TO REGAIN 
CONTROL OF CPU. IF THIS SHOULD HAPPEN; LOOK IN LOCATION 
"TSTNM’ (ADDRESS 1202)FOR THE NUMBER OF THE TEST THAT WAS 

RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS WAY 
THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE KMC11 WAS DOING 
AT THE TIME OF THE ERROR. 


ue RESTRICTIONS 
re STARTING RESTRICTIONS 


SEE SECTION 4. (PLEASE) 

STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS 
STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH 
aa PRINTED ON THE TTY TO COMPLETLY ISOLATE 
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OPERATING RESTRICTIONS 


THE FIRST TIME A KMC11 DIAGNOSTIC IS LOADED INTO CORE AND RUN 
THE STATUS TABLE MUST BE SET UP. THIS IS DONE BY MANUAL INPUT 
(SWOO=1) OR BY AUTOSIZING (SWOO=0 AND SWO7=0). THEREAFTER 

VER THE STATUS TABLE NEED NOT BE SETUP BY SUBSEQUENT 
RESTARTS OR EVEN LOADING THE NEXT KMC DIAGNOSTIC BECAUSE THE 
STATUS TABLE IS OVERLAYED. " CURRENT PARAMETERS IN THE 
STATUS TABLE ARE USED WHEN SWO7=1 ON START UP. 


HARDWARE CONFIGURATION RESTRICTIONS 
KMC11 IOP(M8204)- JUMPER W1 MUST BE IN, 


LINE UNIT(M8201)- JUMPERS W1, W2, AND W4 MUST BE IN. JUMPERS 
I ig WS MUST BE OUT. SW& OF £26 MUST BE IN THE ON 


LINE UNIT (M8202)- JUMPER Wi MUST BE IN. SW8 OF E26 MUST BE 
IN THE OFF POSITION. 


MISCELLANEOUS 
EXECUTION TIME 


ALL KMC11 DEVICE DIAGNOSTICS WILL GIVE AN "END PASS‘ MESSAGE 
(PROVIDING NO ERRORS AND SW12=0) WITHIN 4 MINS. THIS IS 
ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
Oraton. PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 


PASS COMPLETE 


NOTE: EVERY TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN 
AS IF SWii (DELETE ITERATIONS) WAS UP (=1). THIS IS TO 
"VERIFY NO HARD ERRORS’ AS SOON AS POSSIBLE. THEREFORE THE 
FIRST PASS EACH TIME PROGRAM IS STARTED- WILL BE A ‘QUICK 

PASS' UNTIL ALL KMC11°S IN SYSTEM ARE TESTED. WHEN THE 
DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
THE PRINT OUT TO BE EXPECTED. 


END PASS DZKCE CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


E KMC11 THAT IS NG, AND ARE SET 10 pe a 
WHEN THE DIAGNOSTIC IS STARTED. THEREFORE AFTER 
OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS 
FOR EACH KMC11 SINCE THE DIAGNOSTIC WAS STARTED ARE 
REFLECTED IN PASSES: AND ERRORS:. 


NOTE: iri PASS BY aa AND ERROR COUNTS ARE CUMMULITIVE FOR 


SEQ 0009 
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KEY LOCATIONS 


LPADR (1206) CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 


NEXT (1442) CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 
PEFORMED. 


TSTNM (1202) CONTAINS THE NUMBER OF THE TEST NOW BEING 
PEFORMED. 


RUN (1500) ak Jon ” Ls a POINTS TO THE KMC11 
BE! TESTED. EXAMPLE: (RUN) 
1500/0000000001000000 MEANS THAT KMC11 NO.06 

IS THE KMC11 NOW RUNNING. 


KMCROO-KMCR17 

KMSTOO-KMST17 

(2100) =-(2300) 
THESE ie tet CONTAIN THE INFORMATION NEEDED 
TO TEST UP TO 16 (DECIMAL) KMC11S SEQUENTIALY. 
THEY CON NTAIN THE CSR,VECTOR AND __ STATUS 
CONCERNING THE CONFIGURATION OF EACH KMC11. 


KMACTV (1470) EACH BIT SET _IN THIS ene sortee te By 
THE ASSOCIATED KMC11 TESTED IN TURN. 
Foc (KMACTV) 147070060000000011 11 MEANS 


NO. 00,01 WILL BE TESTED. 
EXAMPLE: (KMACTV) "14#076006000000010001 MEANS 
THAT KMC11 NO. 00,04 WILL BE TESTE 


KMCSR (2066) — THE CSR OF THE CURRENT KMC11 UNDER 


"STATUS TABLE* (2100-2300) 


THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER 
INPUT (QUESTIONS) AS tage! yo Sy PREVIOUSLY. ALSO IF DESIRED BY 
USER; THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO 
SUIT THE SPECIFIC CONFIGURATION. 


THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION FOR 
TWO KMC11'S. THE TABLE CAN CONTAIN UP TO 16 KMC11'S. 
a THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP 


MAP OF KMC11 STATUS 


PC CSR STATI STAT2 STATS 


002100 160010 045310 177777 000000 
002710 160020 0163520 000000 000000 


SEQ 0010 


—_ 


———— 
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EACH MAP ENTRY CONTAINS 4 WORDS WHICH CONTAIN THE STATUS 
INFORMATION FOR 1 KMC11. THE PC SHOWS WHERE IN CORE MEMORY 
THE FIRST OF THE 4 WORDS IS. IN THE EXAMPLE ABOVE THE FIRST 
KMC°S STATUS IS IN LOCATIONS, 2100 

SECOND KMC STATUS IS LOCATED AT 2110, 2112, 2114, AND 2116. 
THE INFORMATION CONTAINED IN EACH 4 WORD ENTRY IS DEFINED AS 


CSR: CONTAINS KMC11 CSR ADDRESS 


STAT1: BITS 00-08 IS KMC11 VECTOR ADDRESS 
BIT14=1 TURNAROUND CONNECTOR IS ON 





BIT13=0 LINE UNIT IS AN M8201 

B1T15=1 LINE UNIT IS AN M8202 

BIT12=1 NO LINE UNIT 

BITS 09-11 IS KMC11 BR PRIORITY LEVEL 
STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER) 

HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 
STAT3: BIT 2=0 KMC11-DA 

BIT 2=1 KMC11-FA 


ee 





o 
wm 


ete Ft eo 
SRLS 


due MOUPRIPORIAITUR — — 
WN =OCOOBNOUNEWN OC O@TAUFwnN—o 


Meng te 


wm 


a sh sh sh th dh Ab odb Ah sh Ah dh bh Abed Abed dh dh dh th dh sh ah sh dh sh al eal esha! 


& & & 
wt 


<< sses eets 


MACY11 30A(1052) 08-JUL-80 08:24 PAGE 13 
11 0B=JUL-80 08:24 SEQ 0012 


8.5 METHOD OF AUTO SIZING 
8.5.1 FINDING THE CONTROL STATUS REGISTER. 


bay AUTO-SIZING ROUTINE FINDS A KMC11 AS FOLLOWS: IT STARTS 
ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP 
tO _. ee os ADDRESS 167760. IF THE ADDRESS DOES NOT TIME 
OUT, OLLOWING IS DONE, THE FIRST CRAM ADDRESS IS WRITTEN 
TOA 125952 THEN IT IS READ BACK. IF IT CONTAINS A <1 OR 
125252, If NOT, THE ADDRESS IS UPDATED BY 10 AND +7 SEARCH 
CONTINUES. A -1 INDICATES A KMC11 WITH NO CR AND A_ 125252 
INDICATES *s KMC11 WITH CPAM. Ai ghia TESTS ARE PERFORMED AT 


L 

IF A LOOP-BACK CONNECTOR IS INSTALLED AND VARIOUS SWITCH 
SETTINGS ON THE LINE gh THIS IS WHY THE STATUS TABLE MUST 
BE VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 
AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 
THE QUESTIONS MUST BE ANSWERED. ALL KMC11'S 7 THE SYSTEM 
WILL BE FOUND BY THE AUTO-SIZER. IF IT DOES NOT FIND A_ KMC11 
THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED. 


8.5.2 FINDING THE VECTOR AND BR LEVEL 


THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE 
INSTRUCTION [OT AND wees (NEXT ADDRESS). THE PROCESSOR 
STATUS IS STARTED AT 7 AND THE KMC IS PROGRAMMED TO INTERRUPT. 
THE PS IS LOWERED BY 


MADE AND IF BECAUSE 

BAD KMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL 
> AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE 
PROBLEM IS FIXED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 
CORRECT VECTOR. If AN INTERUPT OCCURED; THE ADDRESS TO WHICH 
THE KMC11 INTERUPTED TO IS PICKED UP AND REPORTED AS THE 
VECTOR. NOTE: IF THE VECTOR REPORTED IS NOT THE VECTOR SET 
UP BY YOU; THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE 






8.6 SOFTWARE SWITCH REGISTER 


IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A 
SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO 
ALLOW USER THE SAME SWITCH OPTIONS AS DESCRIBED PREVIOUSLY. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THIS SOFTWARE SWITCH 
REGISTER IS USED. 


CONTROL : 

TO OBTAIN CONTROL AT ANY ALLOWABLE TIME DURING EXECUTION OF 
THE DIAGNOSTIC THE OPERATOR TYPES A CTRL G ON THE CONSOLE 
TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED, BY 
THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED: 


SWR=XXXXXX NEW? 


WMMAAUNAVIUAWA 
ee eR AY aye gs 
WN" O O@~0 UlWh 


PAAAMAAAMMAAMUAM 


000000 INI I~ a 
=OOBNONE UN Oo mune 


wr 


VIVA AMMNAVIMANUNV! 
oar 


oo 
~ 


sss sss 


MACY11 30A(1052) O8-JUL-80 08:24 PAGE 14 
11 08-JUL-80 08:24 SEu C10 


WHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWARE SWITCH 
REGISTER IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN 
AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED 
TO TYPE ONE OR _ MORE OF THE LEGAL CHARACTERS: 1) 0 - 7, 2) 
LINE FEED(<LF>), 3) CARRIAGE RETURN(<CR>), OR 4) CONTROL-U 
(CTRL U). NO CHECK IS MADE FOR LEGALITY. IF THE INPUT 
CHARACTER 1S NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED TO BE 
AN OCTAL DIGIT. 


TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES 
THE NEW DESIRED VALUE IN OCTAL - LEADING nae: Pe BE 


DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW. 
THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS TYPED. 
AT LEAST ONE DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING 
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 


WHEN THE INPUT STRING IS be whe WITH A <CR> THE DIAGNOSTIC 
WILL CONTINUE EXECUTION FROM THE POINT Ai WHICH IT WAS 
INTERRUPTED. IF A <CR> IS THE ONLY THING TYPED THE PROGRAM 
WILL CONTINUE WITHOUT CHANGING THE SSR. THE <LF> DIFFERS FROM 
pn Bg ¥ RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 


IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO 
THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE 
PROMPT DISPLAYED (SWR = XXXXXX NEW?). 

TO SEl THE SSR FOR THE STARTING SWITCHES, FIRST LOAD THE 
DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC. 


APRA SASASARRAARLRALAAERELESE SALE SALSEESERE SEES EEE EEE E ASSESS SS 


NOTE: FOR IPG*S LINE UNIT M8202-YE USERS. 


CABLE DATA TEST:CTEST 56 TEST 57] 


THESE TESTS WON'T RUN RELIABLY ON LINE UNITS WITHOUT 
TERMINATING RESISTENCE. 
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B 2 
SEQ 0014 


APT/ACT/XXDP/SLIDE 


THIS DIAGNOSTIC IS APT/ACT/XXDP/SLIDE aon USER WOULD BE 
ABLE TO RUN IT UNDER APT/ACT/XXDP ENVIRONMENT 


NOTE: FOR MANUFACTURING PURPOSE ONLY ITS DESCRIBED HOW TO RUN 
UNDER APT ENVIRONMENT. 


SETAE EASEATAAEAE SAE ATETEAAATAAAAAAAKAAAAEARAKARAAREREEEE 


ETABLE SETTING FOR APT TO RUN UNDER APT 
FIRST PASS TIME: 
LONGEST TEST TIME: 
ADDITIONAL TEST TIME: 
sical itty PRMRE*SS MEsacSEOENLG ae SMILE 
ETABLE.THERE 1S NO DEFAULT TIME SET UP. 
SOFTWARE ENVIRONMENT :001 ENVIRONMENT MODE: 200 
SWITCH 1:-SHOULD BE USED AS NORMAL SWITCH REGISTER. 
SWITCH 2:-NOT USED. 
CPU OPTIONS:-NOT USED. 
MEMORY TYPE 1:-BITS<2:4>:=BITS <12:14> OF STAT1 OF DEV:0. 
MAXIMUM ADDRESS: -BITS<17:19>:=BITS<12:14> OF STAT! OF DEV:1 
BITS<2:4>:=BITS <12:14> OF STAT1 OF DEV:2 
BITS<10:12>:=BITS<12:14> OF STAT1 OF DEV:3 
IN THE SAME MANNER 


ee tei 2 MAXIMUM ADDRESS:-GETS STAT1<12:14> OF DEVICE 


gg as 3 MAXIMUM ADDRESS:-GETS STAT1<12:14> OF DEVICE 


MEMORY TYPE 4 MAXIMUM ADDRESS:-GETS STAT1<12:14> OF DEVICE 
12,135,14,15. 


INTERRUPT VECTOR 1:FIRST DEVICE RECEIVE VECTOR. 


el 


al a) 
ly on) 


xx 
SOASSOSCOOAD 
SELEREULIS Se aearES SP 
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REST OF THE DEVICE(KMC'S) VECTOR SHOULD BE SET UP SEQUENTIALLY 
IN INCREMENTS OF 10. 


— PRIORITY(SHOULD BE SAME FOR ALL KMC'S UNDER 


INTERRUPT VECTOR 2:NOT USED. 
BUS PRIORITY:NOT USED. 
BASE ADDRESS:FIRST DEVICE CSR ADDRESS. 
REST SHOULD FOLLOW SEQUENTIALLY 
IN INCREMENTS OF 10. 
DEVICE MAP:AS DESCRIBED IN APT MANUAL. 
CONTROLLER SPECIFIC CODE 1:-NO. OF DEVICES UNDER TEST. 
4 CONTROLLER SPECIFIC CODE 2:-NOT USED. 


666 DEVICE DESCRIPTOR WORD O:STAT2 OF FIRST DEVICE. 
668 ; 


672 TO 


676 ee 
678 DEVICE DESCRIPTOR WORD 15:STAT2 OF 16TH DEVICE. (KMC) 


9.0 HISTORY 


M4 THIS DIAGNOSTIC WAS UPDATED TO DETECT FOR THE CONDITION OF V.35 
5 AND M8201. IN THIS CONIFURATION, RING WILL NOT BE LOOPED BACK 


684 AND SHOULD NOT BE TESTED FOR. 


a —e 
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ta tate DEFINITIONS 


-TITLE CZKCE 
:*COPYRIGHT (C) 1976 


 omanaaae EQUIPMENT CORP. 


MAYNARD, MASS. 01754 
: «PROGRAM BY DINESH GORADIA 


 eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


*? 
. 


>*CZKCE  KMC11 DDCMP LINE UNIT TESTS 
5 ©COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


> STARTING PROCEDURE 
;LOAD PROGRAM 
to ADDRESS 000200 
WR=0 AUTOSIZE KMC11 
:Su07=1 USE CURRENT KMC11 PARAMETERS 
: SWOO=1 = NEW KMC11 PARAMETERS 


:PRESS STAR 

: PROGRAM WILL TYPE evenee KMC11 DDCMP LINE UNIT TESTS" 
PROGRAM WILL iece STATUS MAP 

;PROGRAM WILL TYPE ‘'R’ TO INDICATE THAT TESTING HAS STARTED 

AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 

:AND THEN RESUME TESTING 

SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 

~SBTTL BASIC DEFINITIONS 

i tae OF THE STACK POINTER *** 1200 ex 


STAC 
;;BASIC DEFINITION OF ERROR CALL 


-EQUIV EMT, ERROR 
-EQUIV I0T.SCOPE ;;BASiC DEFINITION OF SCOPE CALL 


>: CODE FOR HORIZONTAL TAB 
LF= 12 >CODE FOR LINE FEED 


CR= 15 >: CODE FOR CARRIAGE RETURN 
CRLF = 0 ::CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 >:PROCESSOR STATUS WORD 

.EQUIV PS,PSW 

STKLMT= 177774 ::STACK LIMIT REGISTER 

PIRQ= 177772 = PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 : HARDWARE SWITCH REGISTER 

DDISP= 177570 > HARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= a NE 


R1= : GENERAL REGISTER 
R2= 12 :;GENERAL REGISTER 


SEQ 0016 


re i ee ae — 


——- < — 


CZKCE 
CZKC 
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000003 


00 
000340 


100000 


000001 


100000 
040000 
020000 
010000 
004000 
002000 
001000 


000400 
000200 
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R3= 13 

R4= 24 

R5= 25 

R6= 26 

R7= 17 

SP= 26 

PC= %7 

;*PRIOPITY LEVEL DEFINITIONS 
PRO= 0 53 
PRi= 40 

FQ2= 100 

PR3= 140 

PR4= 200 

PR5= 240 

PR6= 300 

PR7= 340 


;;GENEPAL REGISTER 


>:GENERAL REGISTER 
7:GENERAL REGISTER 
::STACK POINTER 

>;PROGRAM COUNTER 


>;PRIORITY LEVEL 
;;PRIORITY LEVEL 
:;PRIORITY LEVEL 
:;PRIORITY LEVEL 
> ;PRIORITY LEVEL 
;;PRIORITY LEVEL 
;;PRIORITY LEVEL 
>;PRIORITY LEVEL 


NOUNS AWN © 


;*’"SWITCH REGISTER’’ SWITCH DEFINITIONS 
Swi 00000 


SWi3= 20000 
SWiz= 10000 
SWi1= 4000 
SWi0= 2000 
SWO9= 1000 
SWO8= 400 
SWO7= 200 
SWO6= 100 
SWO5= 40 
SWO4= 20 
SWwO3= 10 
SWO2= 4 
SWOl= 2 
SwOO= 1 
~-EQUIV SWO9,SW9 
EQUIV SW08,SwWé 
-EQUIV SWO7,SW 
EQUIV Sw06, 
EQUIV SWO05,SW5 
EQUIV Sw04, 
EQUIV SWO3,SW3 
EQUIV Sw02, 
QUIV SwWw01,SW1 
EQUIV Sw00, 
BIT15= 100000 
BIT14= 40000 
BIT13= 20000 
BITi2= 10000 
BIT11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 


*DATA BIT DEFINITIONS (BITOO TO BIT15) 





SEQ 0017 


sorreetieertmmemereieetnmme eee eee eee ees enna --_-- 
ee eee anes — —_ -— 


ES STEER ete we 


ree. ee e+ ee 
ce 


F 2 
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798 000100 BIT06= 100 

799 000040 BITOS= 40 

800 000020 BIT04= 20 

801 000010 BIT03= 10 

802 600004 BIT02= 4 

80 000002 BITO1= 2 

04 000001 BITOO= 1 

805 -EQUIV B1ITO9,BIT9 

06 -EQUIV BITO8,BITS 

807 -EQUIV B1T07,BIT7 

808 EQUIV BIT06,BI1T6 
809 EQUIV B1T05,BITS 
810 EQUIV 81T04,BI1T4 
811 EQUIV B1T03.B113 
812 EQUIV ee Ae 
813 EQUIV B81T01,BI1T1 
ais -EQUIV B1I100,B1T0 
816 :*BASIC ‘‘CPU’’ TRAP VECTOR ADDRESSES 
817 000004 ERRVEC= 4 s TIME OUT AND OTHER ERRORS 
818 000010 RESVEC= 10 :GRESERVED AND ILLEGAL INSTRUCTIONS 
819 000014 TBITVEC=14 BIT 
820 000014 TRIVEC= 14 SS hace TRAP 
821 000014 BPTVEC= 14 ; :BREAKPOINT TRAP (BPT) 
822 000020 IOTVEC= 20 :: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
823 000024 PWRVEC= 24 > :POWER FAIL 
824 000030 EMTVEC= 30 i SEMULATOR TRAP (EMT) **ERROR«* 
825 000034 TRAPVEC=34 RAP" TRAP 
826 000060 TKVEC= 60 sE1TY KEYBOARD VECTOR 
827 000064 TPVEC= 64 sTTY PRINTER VECTOR 
ase 000240 PIRQVEC=240 : : PROGRAM INTERRUPT REQUEST VECTOR 
830 
831 
832 
a8 : INSTRUCTION aes EAL ONS 
835 . 
836 005746 PUSH1SP=5746 :DECREMENT PROCESSOR STACK 1 WORD 
837 005726 POP1SP=5726 : INCREMENT ej aa STACK 1 WORD 
838 010046 PUSHRO=10046 SA VE RO ON 
839 012600 POPRO=12600 RESTORE RO peng STACK 
840 024646 PUSH2SP=24646 :DECREMENT STACK TWICE 
841 022626 POP2SP=22626 s INCREMENT STACK TWICE 
ae -EQUIV EMT,HLT ;BASIC DEFINITION OF ERROR CALL 
B4d 
845 


LLL es me ee - - 
> 


a ee a eee eee ee eee A - 
— SE Sh ————~— + 1 - — 


ee 


856 


StSSTER TE SSS 


Seer 
SANNNN 
MiFwWnN—-oO°o 


co oe oe oe oD 
~~~ 
~nOo 


coop oe oD 
Se G3 oe & SS 


SSSSSSSe 


oo — — 
OwOron 
I ee ee 
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000046 
000052 


000174 
000176 


000200 


001000 
001010 
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000000 
000900 


000020 


006414 
000340 
000040 


000040 


000174 
000000 
000000 


000200 
000137 


001000 
005200 
046515 


177570 
177570 
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TRAPCATCHER FOR UNEXPECTED INTERUPTS $EQ 0019 


£5 SRSA AEE AAASEAAESAAEAAASAAEAAETAATAAAAERAATAAAKERAERARERAAEAARARAE TEER ES 
TRAPCATCAER FOR ILLEGAL INTERRUPTS 7 
“THE STANDARD “TRAP CATCHER IS PLACED 
BETUEEN ADDRESS 0 TO ADDRESS 776. 
:1T LOOKS LIKE ‘’PC+2 HALT 


SRE EEEAEEAAAAEEAAEAEAREAAEAREAETAAEAAAAAAAERARERAEREARARERAREEEEEAEEE 


000000 ‘ WORD 0.0 
:STANDARD INTERRUPT VECTORS 
o =20 
$SCOPE ; SCOPE LOOP HANDLER. 
PR? : SERVICE AT LEVEL 7. 
$PWRDN POWER FAIL HANDLER 
PR? “SERVICE AT LEVEL 7 
SERROR “ERROR HANDLER 
PR7 “SERVICE AT LEVEL 7 
STRAP “GENERAL HANDLER DISPATCH SERVICE 
PR? “SERVICE AT LEVEL 7 
\SBTTL ACT11 HOOKS 
SRA EAAERAERAER EEA AEE REE E RARER ESE 
“HOOKS REQUIRED BY ACT11 
SSVPC=. SAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
"WwORD 0 ;;2)SET LOC. 552 TO ZERO 
" =$SVPC «+ RESTORE P 
2174 
DISPREG:0 “SOFTWARE DISPLAY REGISTER 
SWREG: 0 “SOFTWARE SWITCH REGISTER 
.=200 
002402 JMP “START :GO TO START OF PROGRAM 
.=1000 
055103 041513 MTITLE: .ASCII <200><12>/CZ7KCE/<200> 
030503 020061 "ASCIZ /KMC11 DOCMP LINE UNIT TESTS/<200> 
DSWR sé 177570 
DDISP = 177570 
| 
| 


a ee ee me ein. oe ee ee 


LKCE 

ZKCE.P11 
893 
894 
895 
896 
897 
898 
899 
900 001200 
901 001200 
Ong 001202 
903 001203 
904 001204 
905 001206 
906 001210 
907 001212 
908 001214 
909 001215 
910 001216 
911 001220 
912 001222 
913 001224 
914 001226 
915 001250 
916 atts 
917 001234 
918 001235 
a Sie 
Bi 
366 001244 
925 001246 
924 001250 
925 001252 
926 001254 
927 001255 
928 001256 
929 001257 
930 001260 
931 
oa 001262 
933 001264 
3 Bie 
32 Sis 
a Bier 
3 
940 001302 
941 1 
ae 001306 
tia 
ss Bia 
ae 001314 
94 


948 


ee ene ee 
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COMMON TAGS 


-SBTTL COMMON TAGS 


ff AAA AAAAAAAAEARAEAETAAAAEARETAAEAAARARAAERERAEAARAKREAEEERERA EEE 


;*THIS 
> *USED 


SAUTOB: 


" ASCII 


ASCII 
-ASCIZ 


ae re eee eee 


WR 
DISP 


Nm 


Oooooeeor Seoo 9o80O—-"NO 


/7/ 
<15> 
<12> 


SEQ 0020 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


.=1200 


;;START OF COMMON TAGS 


;; CONTAINS THE TEST NUMBER 

>: CONTAINS ERROR FLAG 

>: CONTAINS SUBTEST ITERATION COUNT 
;;CONTAINS SCOPE LOOP ADDRESS 
::CONTAINS SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
3 ITEM CONTROL BYTE 
::CONTAINS MAX. ERRORS PER TEST 
>;CONTAINS PC OF LAST ERROR INSTRUCTION 
;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
;;CONTAINS ADDRESS OF ‘BAD' DATA 
;;CONTAINS ‘GOOD’ DATA 

:;CONTAINS ‘BAD’ DATA 

: ;RESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
>: INTERRUPT MODE INDICATOR 


>:ADDRESS OF SWITCH REGISTER 

: ADDRESS OF DISPLAY REGISTER 

> TTY KBD STATUS 

>: TTY KBD BUFFER 

:;TTY PRINTER STATUS REG. ADDRESS 

> TTY PRINTER BUFFER REG. ADDRESS 
:;CONTAINS NULL CHARACTER FOR FILLS 
>;CONTAINS # OF FILLER CHARACTERS REQUIRED 
7s INSERT FILL CHARS. AFTER A ‘'LINE FEED" 
:; TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
>; CONTAINS THE ADDRESS FROM 


:;CONTAINS (($REGAD) +4) 
s;CONTAINS (($REGAD) +6) 
s:CONTAINS (($REGAD) +10) 
s CONTAINS. (($REGAD) +12) 
;;USER DEFINED 


;;USER DEFINED 

:3;MAX. NUMBER OF ITERATIONS 
;:QUESTION MARK 

;; CARRIAGE RETURN 

;:LINE FEED 


MARRAKECH AAKAKKKKKATARARAEKERARARARERERARAAERERAES 


-SBTTL APT MAILBOX-ETABLE 


SE SE -=- 


ee a eee ee 
ssl tee — —_—— - 


PenSssessaros seseee 


a a a aos 
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Ff SAAR AAA AAAAAEAAATEAAATETAAAEARATAETARAAHEARAAARAREREERERERE TEES 


-EVEN 
001316 IL -:APT MAILBOX 
001316 000000 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
001320 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001322 000000 STESTN: .WORD ATESTN ;::TEST NUMBER 
001324 reise -WORD APASS ;;PASS COUNT 
001326 SDEVCT: .WORD ADEVCT ;:DEVICE COUNT 
001 000000 -WORD AUNIT  ::1/0 T 
ot 000000 -WORD AMSGAD ;;MESSAGE ADDRESS 
1 000000 f4SGLG: .WORD AMSGLG 3 RE SSARE LENGTH 
001 SETABLE Ad gl TABLE 
001 002 -BYTE AENV SER IROMAENT 
001337 000 M: .BYTE AENVM ~~ :: ENVIRONMENT RODE BITS 
001340 000000 SSWREG: .WORD ASWREG ::APT suircH REGISTER 
001342 000000 USWR: .WORD AUSWR :;USER SWITCH 
001344 000000 SCPUOP: .WORD ACPUOP ::CPU hag Be te 
:* BITS 1 es 
;* 11/04= o1 "NT /05= 02,11/20=03,11/40=04,11/45=05 
;* 11/70=06 ,PDQ=07,0=10 
3% BIT 10=REAL TIME CLOCK 
;* BIT 9=FLOATING POINT EROCESSOR 
;* BIT 8=MEMORY MANAGEMENT 
001346 000 SMAMS1: .BYTE AMAMS1 ;:HIGH ADORESS,M.S. BYTE 
001347 000 $MTYP1: .BYTE AMTYP1 ::MEM. TYPE. BLK#1 
;* MEM.TYPE BYTE -=- Bt BYTE) 
;* 309 NSEC 001 
;@ 300 oot BIPOLAR 002 
ft eaves 


001350 090000 AMADR1 ;;HIGH ADDRESS. BLA 
MEM.LAST ADDR. = BYTES, THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
;;HIGH ADDRESS,M.S. BYTE 


AMAMS 
AMTYP2 ;;MEM.TYPE 


WUIWUi 


WMV 
SO Wit 


AMADR3 ::MEM.LAST ADDRESS .BL KA 
AMAMS4 HIGH ADDRESS.M._S BYTE 


: MER. TYPE BLK 
AMADR4 oe OnTe LAST ADDRESS ,BLK&#4 
AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITYA#1 
AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITY#2 
ABASE : BASE ADDRESS OF EQUIPMENT UNDER TEST 


abt oc 
LAM 





$e ADEVA sDEVICE MAP 

76 ACOW! : |CONTROLLER DESCRIPTION WORD#1 
agS ACDW2 ;;CONTROLLER DESCRIPTION WORD#2 
40 ADDWO ;;DEVICE DESCRIPTOR WORD# 

“ ADDWi ;;DEVICE DESCRIPTOR WORDA1 

4 ADDW ; DEVICE DESCRIPTOR WORD# 

41 ADDW >;DEVICE DESCRIPTOR WORDS 

41 ADDWS ;;DEVICE DESCRIPTOR WORDS 

414 ADDWS ;;DEVICE DESCRIPTOR WORD#S 

416 ADDW6 8 ;;DEVICE DESCRIPTOR WORD#6 

o$8 ADDW7 ;;DEVICE DESCRIPTOR WORD#7 

422 ADDWS ;;DEVICE DESCRIPTOR WORD#S 


' 
} 

- = = = = 
LE TS SS eS eS SSS SSS sss esse 


ET Lt LSS SSS 
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ee ee ee ee ee 
Oocoocdocoo00o 
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001424 000000 -WORD ADDW9 ::DEVICE DESCRIPTOR WORD#9 
001426 000000 16: .WORD ADDWIO0 ::DEVICE DESCRIPTOR WORD#10 
001430 000000 $DDW11: .WORD ADDW11 ::DEVICE DESCRIPTOR WORDA11 
001432 000000 -WORD ADDWI2 ::DEVICE DESCRIPTOR WORD#12 
001434 000000 SODW13: .WORD ADDW13 ;;DEVICE DESCRIPTOR WORD#13 
001436 000000 S$DDW14: .WORD ADDWI14 ::DEVICE DESCRIPTOR WORDA14 
001440 000000 SDDW15: .WORD ADDW15 ;;:DEVICE DESCRIPTOR WORDA#15 
001442 SETEND: 
; PROGRAM CONTROL PARAMETERS 
001442 000000 NEXT: .WORD 0 : ADDRSS OF NEXT TEST TO BE EXECUTED 
001444 000000 LOCK: .WORD 0 : ADDRESS FOR LOCK CURRENT DATA 
> PROGRAM VARIABLES 
001446 000000 STRTSW: .WORD 0 : SWITCHES AT START OF PROGRAM 
001450 000000 STAT: .WORD 0 > KM STATUS WORD STORAGE 
001452 000000 CLKX: ~WORD 0 : 
001454 0 MASKX: .WORD 0 ; 
001456 000000 SAVSP: .WORD 0 : STACK POINTER STORAGE 
001460 000000 SAVPC: .WORD 0 : PROGRAM COUNTER STORAGE 
001462 000000 ZERO: .WORD 0 : 
1464 000001 ONE : -WORD 1 : 
14 MEMLIM: .WORD 0 > HIGHEST LOCATION FOR NPR'S 
14 1 KMACTV: .BLKW 1 : KMC11 SELECTED ACTIVE 
00147 000001 : .BLKw 1 > OCTAL NUMBER OF KMC11'S 
1474 000001 SAVACT: .BLKW 1 : ORIGINAL ACTIVE DEVICES. 
1476 000001 SA “BLKw 1 : WORKABLE NUMBER. 
1500 000000 RUN: WORD 0 : POINTER TO RUNNING DEVICES 
001502 002072 CREAM: .WORD KM.MAP-6 : TABLE POINTER 
001504 002276 MILK: .WORD CNT.MAP-4 : TABLE POINTER 
: PROGRAM CONTROL FLAGS 
001506 000 INIFLG: .BYTE 0 : PROGRAM INITIALIZING FLAG 
001510 EVEN 
001510 000 LOKFLG: .BYTE 0 » LOCK ON CURRENT TEST FLAG 
001511 000 QV.FLG: .BYTE 0 > QUICK VERIFY FLAG 


ON FIRST PASS GF EACH KMC11 ITERATIONS WILL BE SUPPRES 
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-SBTTL ERROR POINTER TABLE 
:*THIS TABLE A ae INFORMATION FOR EACH ERROR sae fe OCCUR. 


> * THE INF ORMAT I AINED BY USING THE INDEX NUMBER FOUND IN 
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
* *NOTE1: If SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERRPC) 
* *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
;* EM ;;POINTS TO THE ERROR MESSAGE 
;* DH ::POINTS TO THE DATA HEADER 
;@ DT ::POINTS TO THE DATA 
2 DF s;POINTS TO THE DATA FORMAT 
SERRTB 
EVE 
:t or ;; DOES NOT APPLY IN THIS DIAGNOSTIC. 
0 
0 
EM1 
DH2 : ERROR 1 
DT2 
EM2 
DH2 ; ERROR 2 
DT2 
EM3 
DH2 ; ERROR 3 
DT2 
EM4 
; : ERROR 4 
EMS 
DH2 : ERROR 5 
DT2 
EMS 
DH3 s ERROR 6 
DT3 
EM6 
DH1 : ERROR 7 
DT1 
EM7 
DH1 ; ERROR 10 
DT1 
EM10 
DH1 : ERROR 11 
DT1 
—EM11 
DHS ; ERROR 12 
DTS 
EM12 
DK5 ; ERROR 13 
DTS 
EM11 
DH4 >: ERROR 14 
DT4 


SEQ 0023 
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ee 


SEQ 0024 
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; ERROR 15 


= 


wooo 


S833 
SS3S 


eed 


; ERROR 16 
; ERROR 17 


; ERROR 20 


; ERROR 21 


SIIIISIIISSSE 


; ERROR 22 


~N 


~ 


; ERROR 23 





; ERROR 24 


; ERROR 25 


PAPE EEE ED 
oooooooo 


; ERROR 16 
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; ERROR 27 


; ERROR 30 
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fe ac 
fo 4 a 
Lee) 1) 
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o-oo 
=tez x 
WOoawWo 


a] J 
| a) we 
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; ERROR 35 


; ERROR 36 


; ERROR 37 
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1 08-JUL-80 08:24 ERROR POINTER TABLE SEQ 0025 
0 
EM6 
DH2 ; ERROR 40 
dT2 
Em5 
DHS ; ERROR 41 
DT5 
EM13 
a ; ERROR 42 
-=2034 
-SBTTL APT PARAMETER BLOCK 
PPE rit iii rit iii r titi iii tii ti titi tiiititi iit iitit 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
PPT T ieee iii titi titi ti iti iit it iit iii titi itisa iit itiit it titi tT 
002034 .$X=. 2+ SAVE CURRENT LOCATION 
000024 -=24 ;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 ::FOR APT START UP 
000044 .=4 + POINT TO APT INDIRECT ADDRESS PNTR. 
000044 002034 SAPTHDR ;;POINT TO APT HEADER BLOCK 
002034 .=.$X  ;;RESET LOCATION COUNTER 
Ere ITI iti ti ii ti etat iii titiiiti iii titi iii iiiiiiitiiti tii iii tit 
; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 
002034 SAPTHD: 
8? 0 9000 SHIBTS: .WORD 0 ;;1WO HIGH BITS OF 18 BIT MAILBOX ADDR. 
or 1316 SMBADR: .WORD SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
af 0 000132 STSTM: .WORD 90. ;2RUN TIM OF LONGEST TEST 
002042 000137 SPASTM: .WORD 95. + + RUN rine IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
002044 000137 SUNITM: .WORD 95. ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
002046 000052 - WORD SETEND-SHAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 


Ne 


te 
o 


— 
© 
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7KMC11 CONTROL INDICATORS FOR CURRENT KMC11 UNDER TEST 


+ PO Ss Se OB Smee SE SS 2 3 o> ee ae a me ae ew Se eS Se ee ee Oe ee ae ee 


002050 000000 STAT1: 0O 
002052 000000 STAT2: 0O 
002054 000000 STATS: 0 


_ 3KMC11 VECTOR AND REGISTER INDIRECT POINTERS 


002056 000000 KMRVEC: 0 POINTER TO KMC11 RECEIVER INTERRUPT VECTOR 

00 pe8 000000 KMRLVL: 0 >POINTER TO KMC11 RECEIVER INTERRUPT SERVICE PS 
002062 000000 KMTVEC: 0 POINTER TO KMC11 TRANSMITTER INTERRUPT VECTOR 

00 pea KMTLVL: 0 >POINTER TO KMC11 TRANSMITTER INTERRUPT SERVICE PS 
00 KMCSR: 0 POINTER TO KMC11 CONTROL STATUS REGISTER 

0020 000000 KMCSRH: 0 sPOINTER TO KMC11 CONTROL STATUS REGISTER HIGH BYTE. 
Bes boe 900000 KMCTL: 0 >POINTER TO KMC11 CONTOL OUT REGISTER 

002074 000000 KMPO4: 0 sPOINTER TO KMC11 PORT REGISTER(SEL 4) 

002076 000000 KMPO6: 0 >POINTER TO KMC11 PORT REGISTER(SEL 6) 


;KMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


1 KMCROS: CONTROL STATUS REGISTER FOR KMC11 NUMBER 03 

1 : ;VECTOR FOR KAC11 ER 03 

1 : sDDCMP LINE# FOR KMC11 NUMBER 05 

1 : ;5RD STATUS WORD 

MCRO4 ;CONTROL STATUS REGISTER FOR KMC11 NUMBER 04 

VECTOR FOR KMC11 NUMBER 04 
;DDCMP LINE# FOR KMC11 NUMBER 04 
;5RD STATUS WORD 


002100 -=2100 
005108 KM.MAP: 
00 109 000001 KMCROO: .BLKW ;CONTROL STATUS REGISTER FOR KMC11 NUMBER 00 
gio 1 KMS100: .BLKW VECTOR FOR KMC11 NUMBER 00 
104 01 KMS200: .BLKW :DDCMP LINE# FOR KMC11 NUMBER 00 
2106 01 KMS300: .BLKW :3RD STATUS WORD 
002110 000001 KMCRO1: .BLKW :CONTROL STATUS REGISTER FOR KMC11 NUMBER 01 
112 000001 KMS101: .BLKW VECTOR FOR KMC11 NUMBER 
114 000001 KMS201: .BLKW :DDCMP LINE# FOR KMC11 NUMBER 01 
116 000001 KMS301: .BLKW :3RD STATUS WORD 
120 000001 KMCRO2: .BLKW sCONTROL STATUS REGISTER FOR KMC11 NUMBER 02 
122 000001 KMS102: .BLKW VECTOR FOR KMC11 NUMBER 02 
gigs 1 KMS202: .BLKW :D0CMP LINE# FOR KMC11 NUMBER 02 
126 1 KMS302: .BLKW *3RD STATUS WORD 
1 
r 
136 
14 
09 
144 
146 


— eed eed eed ed ae ee cad ond week wed oud coed wD ce eed wd 
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KMCR10: 
KMS110: 
KMS210: 
KMS310: 


KMCR11: 


KMS111: . 


KMS211: 
KMS311: 


KMCRI2: 


KMS 312: 
KMCR13: 
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SEQ 0027 


> CONTROL STATUS eth. FOR KMC11 NUMBER 05 
;VECTOR FOR KMC11 NUMBER 

:DDCMP LINEA FOR KMC11 NUMBER 05 

:3RD STATUS WORD 


+ CONTROL STATUS REGISTER FOR KMC11 NUMBER 06 
VECTOR FOR KMC11 NUMBER 0 

:DDCMP LINES FOR KMC11 NUMBER 06 

:3RD STATUS WORD 


:CONTROL STATUS } meen A KMC11 NUMBER 07 


>VECTOR FOR KMC11 NUMB 
;DDCMP LINE# FOR KMC11 NUMBER 07 
:3RD STATUS WORD 


:CONTROL STATUS pn. FOR KMC11 NUMBER 10 
;VECTOR FOR KMC11 NUMBER 10 
>DDCMP LINE# FOR KMC11 NUMBER 10 


:3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR KMC11 NUMBER 11 
;VECTOR FOR KMC11 NUMBER 11 
;DDCMP LINE# FOR KMC11 NUMBER 11 


:3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR KMC11 NUMBER 12 
;VECTOR FOR KMC11 NUMBER 1 

:DDCMP LINE# FOR KMC11 NUMBER 12 

;3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR KMC11 NUMBER 13 
:VECTOR FOR KMC11 NUMBER 13 
:DDCMP LINE# FOR KMC11 NUMBER 13 


:3RD STATUS WORD 


>CONTROL STATUS REGISTER FOR KMC11 NUMBER 14 
:VECTOR FOR KMC11 NUMBER 14 
:DDCMP LINE# FOR KMC11 NUMBER 14 


>3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR KMC11 NUMBER 15 
;VECTOR FOR KMC11 NUMBER 1 

;DDCMP LINE# FOR KMC11 NUMBER 15 

;5RD STATUS WORD 


> CONTROL STATUS REGISTER FOR KMC11 NUMBER 16 
;VECTOR FOR KMC11 1 

;DDCMP LINE# FOR KMC11 NUMBER 16 

‘SRD STATUS WORD 


> CONTROL STATUS REGISTER FOR KMC11 NUMBER 17 
‘ro FOR KMC11 NUMBER 17 

MP LINE# FOR KMC11 NUMBER 17 
‘SRD STATUS WORD 


ee ee 
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SEQ 0028 
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APT PARAMETER BLOCK 


;KMC11 PASS COUNT AND ERROR COUNT TABLE 


PACTOO: 
ERCTOO: 


PACTO1: 
ERCTO1: 


F4CTO2: 
ERCTO2: 


PACTO3: 
ERCTO3: 


PACTO4: 
ERCTO4: 


PACTOS: 
ERCTOS: 


PACTO6: 
ERCTO6: 


PACTQO?: 
ERCTO?7: 


PACT10: 
ERCT10: 


PACT11: 
ERCT11: 


PACTI2: 
ERCTI2: 


PACT13: 
ERCT13: 


PACT14: 
ERCT14: 


PACT1S: 
ERCT15: 


PACT16: 
ERCT16: 


PACT17: 
ERCTI7: 


oo oo 2o0Oo 2o80°o 20°o 280Oo 2o&0°o 20Oo 0o0Oo Oo0O 900 O0O O80 OOo OO oOo 


>PASS COUNT FOR KMC11 NUMBER 00 
sERROR COUNT FOR KMC11 NUMBER 00 


;PASS COUNT FOR KMC11 NUMBER 01 
;ERROR COUNT FOR KMC11 NUMBER 01 


>PASS COUNT FOR KMC11 NUMBER 02 
;ERROR COUNT FOR KMC11 NUMBER 02 


;PASS COUNT FOR KMC11 NUMBER 03 
;ERROR COUNT FOR KMC11 NUMBER 03 


>PASS COUNT FOR KMC11 NUMBER 04 
;ERROR COUNT FOR KMC11 NUMBER 04 


>PASS COUNT FOR KMC11 NUMBER 05 
;ERROR COUNT FOR KMC11 NUMBER 05 


>PASS COUNT FOR KMC11 NUMBER 06 
sERROR COUNT FOR KMC11 NUMBER 06 


>PASS CUUNT FOR KMC11 NUMBER 07 
;ERROR COUNT FOR KMC11 NUMBER 07 


>PASS COUNT FOR KMC11 NUMBER 10 
;ERROR COUNT FOR KMC11 NUMBER 10 


PASS COUNT FOR KMC11 NUMBER 11 
sERROR COUNT FOR KMC11 NUMBER 11 


>PASS COUNT FOR KMC11 NUMBER 12 
ERROR COUNT FOR KMC11 NUMBER 12 


PASS COUNT FOR KMC11 NUMBER 13 
sERROR COUNT FOR KMC11 NUMBER 13 


:PASS COUNT FOR KMC11 NUMBER 14 
ERROR COUNT FOR KMC11 NUMBER 14 


;PASS COUNT FOR KMC11 NUMBER 15 
sERROR COUNT FOR KMC11 NUMBER 15 


PASS COUNT FOR KMC11 NUMBER 16 
;ERROR COUNT FOR KMC11 NUMBER 16 


;PASS COUNT FOR KMC11 NUMBER 17 
;ERROR COUNT FOR KMC11 NUMBER 17 


ee 


er a ee rr 
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1366 
136 
1364 
1365 
1366 
13567 


FORMAT OF STATUS TABLE 


15 14 13 12 11 10 09 O08 O07 06 05 04 03 02 01 00 


I I 3-9 
ad ei * *[e«]* * Pe ee. ee Ae” Ee Se SY STAT1 


I I 
‘ B M oe es os Se ie ae oe ae STAT2 


wee 
® I * | STATS 


CSR: CONTAINS KMC11 CSR ADDRESS 
STATI: BITS 00-08 | IS aoe VECTOR ADDRESS 


BIT14=1 NAROUND CONNECTOR IS ON 
B1T14=0 NO. TURNAROUND CONNECTOR 
B1T13=0 LINE UNIT IS AN M8201 
BIT13=1 LINE UNIT IS AN M8202 
BIT12=1 NO LINE UNIT 
BITS 09-11 IS KMC11 BR PRIORITY LEVEL 
STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM8735 BOOT ADD) 
STATS: BITO=1 DO FREE RUNNING TESTS ON K 
(MUST BE SET TO A ONE MANUALLY CPROGRAMS G AND H ONLY)) 
BIT2=0 DMC11-DA (RS232C) 
BIT2=1 DMCTI-FA (v.35) 
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C2KCE.P11  OB8-JUL-80 08:24 PROGRAM INITIALIZATION AND START UP. SEQ 0032 
1419 
1420 :PROGRAM INITIALIZATION 
1491 “LOCK OUT INTERRUPTS 
14 é “SET UP PROCESSOR STACK 
142 “SET UP POWER FAIL VECTOR 
1424 “CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
1495 -TYPE TITLE MESSAGE 
1259 002402 012737 000340 177776 .START: MOV #340,PS -LOCK OUT INTERRUPTS 
1428 002410 012706 001200 MOV #STACK,SP “SET UP STACK 
1489 002414 012737 007126 000024 MOV #SPWRON,a#24  :SET UP POWER FAIL VECTOR 
1430 002422 013737 001472 001476 MOV KMNUM,SAVNUM § :SAVE NUMBER OF DEVICES IN SYSTEM. 
1431 0024630 005037 011544 CLR SWFLG “CLEAR SOFT TYPEOUT FLAG 
rg 002434 105037 001203 CLRB SERFLG :CLEAR ERROR FLAG 
1433 002440 105037 001511 CLRB = QV. FLG -ZERO QUICK VERIFY FLAG 
1434 002444 012737 002070 001502 MOV #KM.MAP-10,CREAM:GET MAP POINTER. 
1435 002652 012737 002276 001504 MOV #CNT.MAP=4, MILK :GET PASS COUNT MAP POINTER 
1436 002460 012737 100000 001500 MOV #B1T15,RUN :POINT POINTER TO FIRST DEVICE. 
1437 002466 012700 002302 MOV #CNT.MAP,RO “PASS COUNT POINTER TO RO 
1438 002472 005020 23$: CLR (RO) + “CLEAR TABLE 
1439 002474 0.2700 002402 CMP #CNT.MAP+100,RO ;DONE YET? 
1440 002500 001374 BNE 23$ “KEEP GOING 
1441 002502 005037 001216 CLR SERRPC “CLEAR LAST ERROR POINTER 
144@ 002506 012737 000001 001202 MGV #1,$TSTNM =SET UP FOR TEST 1 
1443 002514 012737 002402 001206 MOV #.START,SLPADR :SET UP FOR POWER FAIL BEFORE 
1444 ; : TESTING STARTS 
1445 002522 132737 000001 001336 BiTB = #1, SENV : I$ IT RUNNING UNDER APT? 
1446 0025 30 001404 BEQ 3$ : IF NOT CHECK FOR TYPE OF SWITCH REGISTER. 
144 013737 001340 000176 MOV SSWREG.SWREG |: LOAD SOFTWARE SWITCH REG. 
1448 002540 000423 BR 6$+2 - GO SET UP SOFTWARE SWITCH REG. 
1449 002542 013746 000006 3$: MOV a#6,-(SP) :SAVE CURRENT VECTORS 
1450 002546 013746 000004 MOV a#4,-(SP) : 
1451 002552 012737 002606 000004 MOV #6$, 084 >SET UP FOR TIMEOUT 
1458 002560 012737 177570 001240 MOV #177570, SWR :SET SWR TO HARD SWR ADDRESS 
1453 002566 012737 177570 001242 MOV #177570, DISPLAY :SET DISPLAY TO HARD SWR ADDRESS 
1454 002574 022777 177777 176436 CMP #-1,aSwR sREFERENCE HARDWARE SWITCH REGISTER 
1455 00 602 001402 BEQ 6$+2 :IF = <1 USE SOFT SWR ANYWAY 
1456 yen 00040 BH 7$ :IF IT EXISTS AND NOT = -1 USE HARD SwR 
1457 00 606 022626 6$: CMP (SP)+, (SP) + “ADJUST STACK 
1458 00261 10737 000176 001240 MOV #SWREG, SUR “POINTER TO SOFT SWR 
1459 616 012737 000174 001242 MOV #DISPREG,DISPLAY:POINTER TO SOFT DISPLAY REG 
1460 00 634 012637 000004 7$: MOV (SP)+, and :RESTORE VECTORS 
1461 0026 012687 000006 MOV (SP)+,a#6 : 
1462 634 105737 001506 STB —sINIFLG ‘HAS INITIALIZATION BEEN PERFORMED 
1463 002640 001 BNE 20% ‘ FY 
1464 2642 022737 004070 000042 CMP #SENDAD ,a#42 : IF ACT-11 AUTOMATIC MODE, DON'T TYPE ID 
1465 650 001402 BEO 20$ 
1466 652 104401 001000 TYPE  ,MTITLE : TYPE TITLE MESSAGE 
146 656 004737 011340 208: JSR PC, CKSWR “CHECK FOR SOFT SwWR 
1468 662 017737 176352 001446 MOV @SWR,STRTSW :STORE STARTING SWITCHES 
1469 "3 $737 000042 TST ar42 :1S IT RUNNING IN AUTO MODE? 
1470 674 001408 BEQ +6 “BR IF NO 
1471 676 005037 001446 CLR STRISW -IF YES, CLEAR SWITCHES 
1472 002702 032737 000001 001446 BIT #SWOO,STRTSW :IF SWOO=1, QUESTIONS ARE ASKED. 
1473 002710 001012 BNE 17$ “BR IF SwOO=1 
1474 002712 105737 001446 TSTB = STRTSW “BIT7=12? 
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CZKCE.P11 08-JUL-80 08:24 PROGRAM INITIALIZATION AND START UP. SEQ 0033 
1475 002716 100007 BPL 17$ :BR IF Sw07=0 
1476 002720 005737 001470 TST KMACTV ;ARE ANY DEVICES SELECTED? 
1477 002724 001027 BNE 16$ “BR IF YES 
1478 0027 § 104401 011057 TYPE, NOACT NO pits SELECTED. 
1479 0027 HALT ;STOP THE SHOW 
1480 00 b> 000776 BR 72 -DISQUALIFY CONTINUE SWITCH 
1481 0027 105737 001336 17$: TSTB SENV * 35 UNDER APT DUMP MODE? 
eae 002742 001405 BEQ 27% : YES, CHECK IF APT SIZED IT? 
1485 002744 132737 000001 001336 BIT& #1,SENV > 55 UNDER Q,V OR RUN MODE? 
1484 002752 001012 BNE 30$ ; YES, NEEDS ONLY APT SIZING. 
1485 psoas 000406 BR 33$ ; NO, NEEDS woe = SIZE. 
1486 002756 105737 001337 27$: TSTB SENVA ; IS IT SIZED BY 
1487 002762 ig es: BMI 30$ ; YES, NEEDS ONLY yh! SIZING. 
1488 Bosegs 04273 000001 001446 BIC #SWOO ,STRTSW 3 SIZE ONLY He aay MODE. 
1489 2772 006737 012236 33$: JSR PC,AUTO.SIZE ; GO DO THE A eal 
1490 002776 000402 BR 16$ ; GO PRINT THER 
1491 00 004737 013716 30$: JSR PC,APT.SIZE ; GO DO THE APT MS IZING. 
pe 003004 105737 001506 16$: TSTB INIFLG sFIRST TIME? 
1493 003010 001410 BEQ :BR IF YES 
1494 003012 105737 001446 TSTB STRTSW :1F USING SAME PARAMETERS DONT TYPE MAP 
1495 003016 100431 BM! 1$ 
1496 003020 032737 000006 001446 BIT #BITIT'BIT2,STRTSW;IS TEST NO. OR ore SELECTED 
1497 at 6 001403 BEQ 24% IF NO THEN TYPE STATUS 
1498 00 000424 BR 1$ :1F YES DO NOT TYPE STATUS 
1499 itty 105137 001506 21$: COMB INIFLG SET FLAG 
1500 3036 104401 010100 24$: TYPE XHEAD ; TYPE HEADER 
1a as iach ree og, NNT gE 
1808 iets 815437 001300 MOV (Rae, STMP1 : CSR 
1504 003056 001411 BEQ SAL DONE IF ZERO 
1505 003060 012437 001302 MOV (ears. STMP2 sSET STATI 
1506 003064 012437 001304 MOV (R4)+,$TMP3 :SET STAT? 
1507 003070 012437 001306 MOV (R4)+,STMP4 :SET STAT3 
1508 003074 104416 CONVRT : TYPE OUT STATUS MAP 
1509 003076 011206 XSTATQ : 
1510 003100 000762 BR 5$ 
131 003102 012700 002100 1$: MOV #KM.MAP,RO :RO POINTS TO STATUS TABLE 
I3l¢ PPR ala i al tah dl alae aaa 
1514 $3 #AUTO SIZE TEST 
1515 THIS TEST VERIFYS THAT THE rae eta KMC11S ARE AT THE CORRECT FLOATING 
1516 : | #ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
1517 *CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ, DH,DQ,DU,DUP, yr DMC ,DZ,KMC). 
1518 e]F THERE ARE NO OTHER FLOATING DEVICES BEFORE THE KMCi1, THE FIRST 
1519 3:* KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT 
1520 :;*ADDRESS 760000. 
1521 SRM EAAARAAEAA AAA AAAAA AAA ATE TAA AREAAAAAEAAR HEATER AARAARAREA RARER HEE 
152 
1858 003106 013746 000004 MOV a#4 ,-(SP) :SAVE LOC 4 
1524 003112 013746 000006 MOV #6 ,-(SP) “SAVE LOC 6 
1525 003116 005037 000006 CLR af :CLEAR VEC+2 
15 $ Ooty 2 005037 001302 CLR STMP2 :CLEAR FLAG 
15 3126 011037 002066 AUSTRT: MOV (RO) ,KMACSR >GET NEXT KMC CSR 
1528 003132 001510 BEQ AUDONE DON 
136) 0031 012737 003240 000004 2$: MOV #NODEV ,a#4 SET UP FOR TIMEOUT 
15 003142 012703 000010 3$: MOV #10,R3 :R3 IS COUNT OF DEVICES BEFORE KMC 
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P11 08-JUL- ROGRAM INITIALIZATION AND START UP. SEQ 0034 
003146 012702 003342 4$: MOV #DEVTAB,R2 :R2 IS DEVICE TABLE PONTER 
opai85 019701 160010 MOV #160010,R1 :START WITH ADDRESS 160010 
003156 005711 FLOAT: TST (R1) :CHECK ADDRESS IN R1 
8 160 111204 MOVB (R2),R4 :1f NO TIMEOUT, GET NEXT ADDRESS 

162 060401 ADD R4,R1 -IN R1 
003164 005201 INC R1 : 
00 198 040401 BIC R4,R1 : 
0031 005703 TST R3 sANY MORE DEVICES TO CHECK FOR? 
003172 001371 BNE FLOAT :BR IF YES 
003174 012737 003244 000004 MOV #ERR aes ;OK ONLY KMC'S ARE LEFT, SET UP FOR TIMEOUT 
00 $0 005711 FY: TST (R1) :CHECK KMC ADDRESS 
003204 020137 002066 CMP R1,KMCSR :DOES IT MATCH 
pat 10 001403 BEQ Ok :BR IF YES 
003212 062701 000010 ADD #10,R1 :GET NEXT KMC ADDRESS 
003216 000771 BR FY -DO IT AGAIN 
003220 peg T00 000010 OK: ADD #10,R0 ;SKIP TO NEXT KMC CSR 
003 a 062701 000010 ADD #10,R1 : GET NEXT KMC ADDRESS 
0032 011037 002066 MOV (RO) ,KMCSR : GET NEXT KMC CSR 
tity 001447 BEQ AUDONE : BRANCH IF ALL DONE. 
003236 000761 BR FY : DO IT AGAIN. 
003240 122243 NODEV: CMPB (R2)+,-(R3) :ON TIMEOUT, INC R2, DEC R3 
003242 000002 RT] -$LPADR 
po eser 005737 001302 ERR: TST STMP2 :CHECK FLAG IF = 0 TYPE HEADER 
003250 001014 BNE 1$ :SKIP HEADER 
Boasee 104401 TYPE ; TYPEQUT HEADER MESSAGE 
003254 011110 CONERR : CONFIGURATION ERROR!!!! 
003256 012737 003244 001460 MOV #ERR, SAVPC ;SAVE PC FOR TYPEOUT 
pit 104417 CNVRT : TYPE OUT ERROR PC 
003322 ERRPC ; 
003270 104401 TYPE :TYPE REST OF HEADER 
003272 011155 CNERR : 
003274 012737 177777 001302 MOV #-1,$TMP2 :SET FLAG SO IT ONLY GETS TYPED ONCE 
003302 010137 001264 1$: MOV R1,$REG1 :SAVE R1 FOR TYPEOUT 
003306 104416 CONVRT 
003310 003330 CONTAB :TYPE CSR VALUES 
Hag, 104401 3$: TYPE 
; 14 011176 KACM 
16 022626 4$: CMP (SP)+,(SP)+ sADJUST STACK 
003320 000737 BR OK :BR TO GET OUT 
” 2 000001 ERRPC: 1 
4 002 -BYTE 6,2 
oS 6 001460 SAVPC 
000002 CONTAB: 2 
003332 006 004 BYTE 6,4 
at tt 001264 SREG1 
; 006 002 -BYTE 6,2 
003340 002066 KMCSR 
; 3 007 DEVTAB: .BYTE 7 :DJ 
017 -BYTE 17 :DH 
3344 007 -BYTE 7 :DQ 
3345 007 BYTE 7 :DU 
t508 007 BYTE 7 : DUP 
7 BYTE 7 :LK 
003350 007 BYTE 7 : DMC 
pete: 007 BYTE 7 :D2 
003352 007 .BYTE 7 = KMC 
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MACY11 30A(1052) O8-JUL-80 08:24 PAGE 36 
P11 08-JUL-80 08:24 PROGRAM INITIALIZATION AND START UP. SEQ 0035 
003354 -EVEN 
003354 AUDONE : 
003354 012637 000006 1$: Vv (SP)+,a4#6 ;RESTORE LOC 6 
00 012637 000004 MOV (SP)+,a84 RESTORE LOC 4 
8 032737 000010 001446 BIT #SWO3,STRTSW :SELECT SPECIFIC DEVICES?? 
2 001422 BEQ :BR IF NO. 
003374 104401 010020 TYPE ,MNEW ;TYPE THE MESSAGE. 
8 005000 CLR RO : ZERO DATA LIGHTS 
0 HALT ;WAIT FOR USER TO TELL WHAT DEVICES TO RUN 
003404 44 7 175630 001474 CMP aSWR,SAVACT :1S THE NUMBER VALID? 
003412 101404 BLOS 2$ :BR IF NUMBER IS OK. 
003414 104401 007673 TYPE »MERRS :TELL USER OF INVALID NUMBER. 
fat 9 000000 HALT :STOP EVERY THING. 
00 000776 8k 72 sRESTART THE PROGRAM AGAIN. 
sat 4 017737 175610 001470 2$: MOV a@SWR,KMACTV ;GET NEW DEVICE PATTERN 
2 013700 001470 MOV KMACTV,RO ;SHOW THE USER WHAT HE SELECTED. 
tn 000000 HALT sCONTINUE DYNAMIC SWITCHES. 
8 40 piste 000300 3$: MOV #300,R0 :PREPARE TO CLEAR THE FLOATING 
“yer: 12701 000302 MOV #302,R1 :VECTOR AREA. 300-776 
003450 010120 4$: MOV R1,(RO)+ :START PUTTING ‘'PC+#2 - HALT’’ 
003452 005021 CLR (R1)+ IN VECTOR AREA. 
003454 022021 CMP (RO)+,(R1)+ :POP POINTERS 
003456 022700 001000 CMP #1000,R0 :ALL DONE?? 
003462 001372 BNE 4$ -BR IF NO. 


;TEST START AND RESTART 





64 012706 001200 .BEGIN: MOV #STACK,SP >SET UP STACK 
70 013746 000006 MOV a#6,-(SP) *SAVE LOC 6 
74 013746 000004 MOV ars ,-(SP) “SAVE LOC 4 
500 005000 CLR RO “START AT 0 
s 2 012737 003546 000004 MOV #2$,a84 >SET UP FOR TIME OUT 
51 5037 000006 CLR avé -TO AUTOSIZE MEMORY 
314 5720 6$: TST (RO)+ “CHECK ADDRESS IN RO 
1 2700 157776 CMP #157776.RO “IS IT AT LEAST 28K 
5 1374 BNE $ : F NO 
4 162700 007776 SUB #7776,R0 “SAVE 2K FOR MONITORS 
01 ; 001466 7$: MOV RO,MEMLIM >STORE MEMORY LIMIT 
126 7 000004 MOV (SP) +, 084 ‘RESTORE LOC 4 
40 012637 000006 MOV (SP)+,a#6 “RESTORE LOC 6 
ry 13 BR 1 : CONTINUE 
4 Q 2626 2$: CMP (SP)+,(SP)+ “ADJUST STACK 
50 16 000004 SUB #4,R “GET LAST GOOD ADDRESS 
334 162700 007776 SUB #7776, RO :SAVE 2K FOR MONITORS 
700 030000 CMP #30006 ,R0 “1S IT BK? 
} BNE :BR if NO 
1 ? 037400 OV #37400,R0 IF 8K DON'T SAVE 2k 
74 0127 § 000340 177776 10$: MOV #340,PS “LOCK OUT INTERRUPTS 
32737 000004 001446 BIT #BIT2,STRISW § :CHECK FOR LOCK ON TES; 
1 1406 BEQ 1$ “BR IF NO LOCK DESIRED. 
12 104401 007717 TYPE  ,MLOCK ‘TYPE LOCK SELECTED. 
16 012737 000240 004146 MOV #NOP, TTST “SET UP TO LOCK 
é 03 BR *CONTINUE ALONG. 
6 013737 004360 004146 15: MOV BRW,TTST “PREPARE NORMAL SCOPE ROUTINE 
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PROGRAM INITIALIZATION AND START UP. 


3$: MOV #CYCLE,SLPADR ;START AT “‘CYCLE’’ FIND WHICH DEVICE TO TEST 
4$: BIT #SW01,STRTSwW 71S TEST NO. SELECTED? 

BNE 5$ :BR IF YES 

TYPE -MR TYPE R 
5%: JMP @SLPADR START TESTING 


SEQ 0036 


—_ see oe - ——- 


KCE 08-JUL-80 08: 
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1648 

1649 

1650 

1651 

1026 

165 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1006 000005 

166 005237 001324 

1664 105037 001203 

1665 104401 007620 

1666 104401 007746 

1667 104417 004104 

1668 104401 007754 

198? 104417 004112 

1670 104401 007762 

1671 104417 004120 

143 104401 007773 

167 104417 004126 

1675 OOBPes 913720 OOT3e4 

1676 i! Pe o13740 ELE: 

167 4! 754 013777 002060 176074 
1o08 03762 5077 176072 

16 1° 13777 002064 176066 
1680 003774 5077 176064 

1681 ' 005337 001476 

1 ! 9039 5 

1 yt 112737 000377 001511 
1 04014 013737 001472 001476 
1685 4! 7 001216 

1 ' 5037 001310 

1 5 $5 001324 

1 ¢ 7 100000 001324 
1691 5 13 

1 a 737 
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: 9 ri 000042 
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ND OF PASS ROUTINE 


;END OF PASS 
; TYPE NAME OF TEST 


-SBTTL 


“UPDATE PASS C 
“CHECK FOR E 
“RESTART TES 


OUNT 
TO ACT-11 





END OF PASS ROUTINE 


: PARRA SALLLALLEALASALERELALASEE ALES EEE ELSES ESE EEC ESE CESSES ESL ESS 


:*INCREMENT THE PASS NUMBER 
;*IF THERE ISN'T JUMP TO CYCLE 


;*I1F THERES A MONITOR GO 


SEOP: 


SEOPCT: 


SENDCT: 


$SGET42: MOV 


SENDAD: 


SDOAGN: 


i 
SPA 





K,RO 

SS, (RO)+ 

SERTTL,(RO)+ 

KARLVL ,@KMRVEC 
KARLV 


e@ Se Ge Ge Gs Be Be Ge Ge Ge Ge Be Ge Ge Se Ge Ge Be Ge Ge Se Be Be 


—_— ee 


R ; rr 


INCREMENT THE PASS COUNT 
CLEAR ERROR FLAG 
TYPE END. PASS. 


WIT. 
VECTOR. 
WIT. 
sees i 
"" ERRORS '' 
SHOW IT. 
SET POINTER TO PASSCNT. 
SAVE THE PASS COUNT. 
ROR COUNT 


SAVE ERRO 
RESTORE THE RECEIVER INTERRUPT VECTOR. 


a RESTORE RECEIVER LEVEL 
KMTLVL ,@KMTVEC RESTORE THE TRANSMIT INTERRUPT VECTOR. 
@KATLVL RESTORE TRANSMITTER LEVEL 
SAVNUM ALL DEVICE TESTED? 
SDOAGN BRANCH IF NO. 
#377 ,QV.FLG SET QUICK VERIFY FLAG. 
KMANUM , SAVNUM RESTORE DEVICE COUNT. 
SERRPC ; CLEAR LAST ERROR PC 
STIMES 32;ZERO THE NUMBER OF ITERATIONS 
SPASS :; INCREMENT THE PASS NUMBER 
#100000,$PASS ;:;DON'T ALLOW A NEG. NUMBER 
(PC)+ ;;LOOP? 
SDOAGN ss VES 
pee eeire?® ;;RESTORE COUNTER 
a#42,R0 :;GET MONITOR ADDRESS 
SDOAGN aa CH IF NO MONITOR 

:: CLEAR THE WORL 
PC, (RO) ::G0 TO MONITOR 

3;SAVE ROOM 

: FOR 

:;ACT11 
a(PC)+ ; sRETURN 


SEQ 0057 
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1 08-JUL-80 08:24 END OF PASS ROUTINE SEQ 0078 
004102 011606 SRINAD: .WORD CYCLE 
004104 000001 XCSR: 1 
SINE oasket i 
11 sat MVEC: 1 
004114 004 002 .BYTE 4,2 
004116 002056 KMRVEC 
one 000001 KXPASS: 1 
122 002 .BYTE 6,2 
0041 4 001324 $PASS 
126 000001 MERR: 1 
0041 006 002 .BYTE 6,2 
004132 001212 SERTTL 
:SCOPE LOOP AND INTERATION HANDLER 
.SBTTL SCOPE HANDLER ROUTINE 
FRERAAAAAAAAEAEARAEEAATEAAEAAAAAEAEAAAEAAERAEEAAAEAEARAAAEKEKEEKRKKREE 
:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
SAND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
> #SW14=1 LOOP ON TEST 
> *SW11=1 INHIBIT ITERATIONS 
*CALL 
it SCOPE : > SCOPE=I10T 
0041 34 SSCOPE: 
134 005037 001216 CLR SERRPC ; CLEAR LAST ERROR PC 
4140 025716 014142 CMP TST1#2, (SP) ; I$ THIS TEST #1 
144 00141 BEQ SXTSTR : IF SO DON'T LOOP. 
166 06 TTST: BR 1$ ; 
15 5777 175070 TSTB «= @STKS > KEYBOARD DONE ? 
154 100067 BPL SOVER ; IF NO DONT WAIT. 
156 017 66 175064 177776 MOV a$TKB,-2(SP) ; 
0041164 032777 040000 175046 1$: BIT #B1T14,aSuR ;;LOOP ON PRESENT TEST? 
172 001060 BNE SOVER YES IF SW14=1 
:MMURASTART OF CODE FOR THE XOR tesTensesns 
004174 000416 $XTSTR: BR 6$ ;1F RUNNING ON THE "'XOR'' TESTER CHANGE 
=: THIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
176 013746 000004 Q#ERRVEC, gu (SP) «SAVE THE CONTENTS OF NOME ERROR VECTOR 
02 012737 004222 000004 #5$,QMERRVEC = 5; SET FOR TIMEOUT 
1 5737 177060 a#i?7 ? 


7 OUT ON XOR? 
14 0126357 000004 (SP)+ ,@#ERRVEC ; :RESTORE THE ERROR VECTOR 
SSVLAD O THE NEXT T 





VL ST 
$ 5$: (SP)+, (SP)+ :;CLEAR THE STACK AFTER A TIME OUT 
4 637 000004 (SP)+,a#ERRVEC ;:RESTORE THE ERROR VECTOR 
4} BR R >:LOOP ON THE PRESENT TEST 
6$::###HREND OF CODE FOR THE XOR ‘TESTERAAEEE 
1 $737 001203 2$: TsT8 SERFLG ;3HAS AN ERROR OCCURRED? 
4 $087 001203 4$: CLRB —s- SERFLG :3ZERO THE ERROR FLAG 
5037 001310 CLR STIMES “CLEAR THE NUMBER OF ITERATIONS TO MAKE 
2777 004000 174762 3: BIT #B1T11.aSuR >: INHIBIT [TERATIONS? 
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SCOPE HANDLER ROUTINE 


BNE 1$ 

TST SPASS 

BEQ 1$ 

INC SICNT 

CMP STIMES ,SICNT 

BGE SOVER 
1$: MOV #1, SICNT 

MOV SMXCNT STIMES 
SSVLAD: INCB STSTNA 

MOVB STSTNA,STESTN 

MOV (SP) ,SLPADR 
fOVER: MOV $TSTNM, @DISPLAY 

MOV SLPADR, (SP) 

CLR LOCK 

MOV KACSR,R1 

RTI 


BRW: 406 
SMXCNT: 20 


:BR IF YE 
SIF FIRST oat? OF PROGRAM 


3 rH 
; > CHECK THE rhe OF ITERATIONS MADE 
sBR IF MORE ITERATION REQUIRED 
: :REINITIALIZE THE ITERATION COUNTER 
T NUMBER OF ITERATIONS TO DO 
; SS Count TEST ERS 
:3SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
::DISPLAY TEST NUMBER 
>; FUDGE RETURN ADDRESS 
RESET LOCK ON DAT 
; R1 CONTAINS BASE KC ADDRESS. 


:;MAX. NUMBER OF ITERATIONS 


>CHECK FOR FREEZE ON CURRENT DATA 


~SCOP1: JSR PC ,CKSWR 
BIT #SW09,aSWR 
BEQ 1$ 
TST LOCK 
BEQ 1$ 
MOV LOCK, (SP) 
1$ RTI 


~~ 
w~— 
m 


;GOTO THE ADDRESS IN LOCK. 
:GO BACK. 


sTELETYPE OUTPUT ROUTINE 


-SBTTL TYPE ROUTINE 


Ff TARA ARAAAAAAAEAEAAETERAEEA ATER AEEEEAEAAEAAEAERAAARAAAEEEAEAEEAAEKEEE 


:*ROUTINE TO TYPE ASCIZ ots ade Oe ek MUST TERMINATE WITH A 0 et 


; * THE on WILL INSERT F NULL CHARACTERS AFTER A LINE FEED. 
:*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

; *NOTES SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
;* 
LL 


*CA 
set) USING A TRAP INSTRUCTION 
TYPE »MESADR 


o TYPE 

7* MESADR 

STYPE: TSTB STPFLG 
BPL 1$ 
HALT 
BR 3$ 

1$ MOV RO,-(SP) 
MOV a2(SP),RO 





;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


:i18 THERE A TERMINAL? 
:ZHALT HERE IF NO TERMINAL 


7; SAVE RO 
;:GET ADDRESS OF ASCIZ STRING 


SEQ 0039 
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001336 


000100 0601337 


004464 
004704 


000040 


000002 
000011 
000200 


004672 


004626 
001256 


001254 
000001 


004626 
004672 


000040 
004626 
000007 


174416 
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000015 
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i PAGE 41 
PE ROUTINE 


23: MOVB 
69$: MOV 
3$: ADD 
4$: CMPB 


5$: JSR 
6$: CMPB 


7$: DECB 
T 


sHORIZONTAL TAB 


8$: MOVB 
9$: JSR 
BITB 


STYPEC: 


1$: CMPB 


CB 
SCHARCNT: . WORD 


STYPEX: RTS 






#APTENV, SENV 


#APTSPOOL . SENVA 
62% 


RO,61$ 
PC, SATY3 


#APTCSUP ,SENVA 
60$ 


(RO)+,-(SP) 
4$ 

(SP)+¢ 
(SP)+,R0 
#2, (SP) 
#HT, (SP) 
#CRLF, (SP) 
5$ 


(SP)+ 


SCHARCNT 
2$ 


PC ,STYPEC 
ate id 


2 

SNULL,-(SP) 

1(SP) 

6$ 

PC ,STYPEC 

SCHARCNT 

7$ 

PROCESSOR 

(SP) 

C. $TYPEC 

#7 .SCHARCNT 

(S$P)¢ 

2$ 

asTPs 

STYPEC 

2(SP) ,a$TPB 

#CR,2(SP) 

1$ 

SCHARCNT 
TYPEX 

af. 2 (SP) 

(Pee 

PC 


oes 
= 





> RUNNING IN APT MODE 
:3N0,GO CHECK FOR a! ee 
:: SPOOL MESSAGE TO A 


CK FOR CONSO OLE 
:: SETUP MESSAGE ADDRESS FOR APT 
L MESSAGE TO A 
: IMESSAGE ADDRESS 
T CONSOLE SUPPRESSED 
“YES, SKIP TYPE OUT 
PUSH CHARACTER TO BE TyPED ONTO STACK 
IF IT ISN'T THE TERMINATOR 
>: IF TERMINATOR POP IT OFF THE STACK 
> :RESTORE RO 
; ADJUST RETURN PC 


URN 
> = BRANCH If <HT> 
;;BRANCH IF NOT <CRLF> 


3;;POP <CR><LF> EQUIV 
7; TYPE A CR AND LF 


cen agp Ba COUNT 
T NEXT CHARACTER 
::G0 TYPE THIS CHARACTER 
31S IT TIME FOR Sm CHARS .? 
>:1F NO GO GET NEXT C 
BM # OF beg ™ CHARS. “NEEDED 
AND THE NULL CHA 
: DOES A NULL NEED TO BE TYPED? 
R IF . POP THE NULL OFF OF STACK 
::G0 TYPE A NULL 
++D0 sa COUNT AS A COUNT 


Hi? eg TAB WITH SPACE 
TYPE A SPACE 
> BRANCH IF NOT AT 


>TAB STOP 
POP SPACE cl STACK 
T NEXT CHARACTER 
SMAIT UNTIL "PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
+218 CHARACTER A CARRIAGE RETURN? 


; BRANCH IF NO 

ane. CHARACTER COUNT 

:;1S CHARACTER A LINE FEED? 
CH IF Hay 


> ;BRAN 
;COUNT THE CHARACTER 


>: CHARACTER COUNT STORAGE 


one see oe oe eee 
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MACY11 30A(1052) O8-JUL-80 08:24 PAGE 42 
P11 08-JUL-80 08:24 APT COMMUNICATIONS ROUTINE SEQ 0041 
-SBTTL APT COMMUNICATIONS ROUTINE 
sf CEASERS AAA AEAAAAEAAASTAAAAATAAEAARAREARAAAEARARARERAAAARAREREAEE 
004676 112737 000001 005142 $ATY1: MOVB #1.S$FFLG :;TO REPORT FATAL ERROR 
004704 112737 000001 005140 $ATY3: MOVB #1.$MFLG -:TO0 TYPE A MESSAGE 
004712 000403 eta SATYC 
004714 112737 000001 005142 SATY4: MOVB #1,S$FFLG ::TO ONLY REPORT FATAL ERROR 
004788 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
724 Ba R1,-(SP) ::PUSH R1 ON STACK 
7¢6 105737 005140 TSTB «=- SMFLG ::SHOULD TYPE A MESSAGE? 
7 001450 BEQ 5$ ::1F NOT: BR 
734 122737 000001 001336 CMPB #APTENV,SENV  :; OPERATING UNDER APT? 
742 090 } BNE ::1F NOT: BR 
744 132737 000100 001337 BITB #§$#APTSPOOL,SENVM ;:SHOULD SPOOL MESSAGES? 
752 001425 BEQ 3$ ::IF NOT: BR 
754 017 000004 MOV a4(SP),RO ::GET MESSAGE ADDR. 
760 06¢7 000002 000004 ADD #2,4(SP) ::BUMP RETURN ADDR. 
796 737 001316 1$: 1ST SMSGTYPE ::SEE IF DONE W/ LAST XMISSION? 
772 001375 BNE 1$ *:IF NOT: WAIT 
774 010037 001332 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 
§000 105720 2$: TSTB —s_- (RO) + >:FIND END OF MESSAGE 
4 001376 BNE 2$ 
5 163700 001332 SUB SMSGAD,RO -:SUB START OF MESSAGE 
5010 0062 ASR RO ::GET MESSAGE LNGTH IN WORDS 
5012 010037 001334 MOV RO, $SMSGLGT ::PUT LENGTH IN MAILBOX 
S028 012737 000004 001316 MOV #4, SMSGTYPE >: TELL APT TO TAKE MSG. 
3 $6 637 000004 005052 3$: MOV a4(SP).4$ ::PUT MSG ADDR IN JSR LINKAGE 
50 06¢ 66 000002 000004 ADD #2,4(SP) -=BUMP RETURN ADDRESS 
5042 01 746 177776 MOV 177776,-(SP)  ::PUSH 177776 ON STACK 
2066 004737 004414 JSR PC $TYPE >=CALL TYPE MACRO 
; 3 0 ae: . WORD 
Hr 105737 005142 10$: TSTB —s-: SFFLG ::SHOULD REPORT FATAL ERROR? 
44 001416 BEQ 12$ ss T: BR 
005737 001336 1ST SENV : RUNNING UNDER APT? 
005 001413 BEQ 12$ ::1F NOT: BR 
O 005737 001316 11S: TST SMSGTYPE : FINISHED LAST MESSAGE? 
005074 1375 BNE 11 s:1F NOT: WAIT 
76 017637 000004 001320 MOV @4(SP),SFATAL ;;GET ERROR # 
193 e506 000002 000004 ADD #2,4(SP) ::BUMP RETURN ADDR. 
112 23 001316 INC SMSGTYPE ::TELL APT TO TAKE ERROR 
5116 105037 005142 12$: CLRB 3s SF FLG *:CLEAR FATAL FLAG 
5122 105037 005141 CLRB = SLFLG >: CLEAR LOG FLAG 
51 $ 105037 005140 CLRB F >: CLEAR MESSAGE FLAG 
51 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
51 012600 MOV (SP)+,R0 ::POP STACK INTO RO 
51 000207 R PC : sRETURN 
514 000 SMFLG: .BYTE 0 ::MESSG. FLAG 
operas 000 SLFLG: .BYTE 0 >:LOG FLAG 
$142 000 SFFLG: .BYTE 0 >:FATAL FLAG 
~ 005144 EVEN 
000200 APTSIZE=200 
000001 APTENV=001 


APTSPOOL=100 


S 
2 


A ES ee —— 


; 
; 
TS see: 


Sanne 


eee 
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Sesssesesse 
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P11 08-JUL-80 08:24 APT COMMUNICATIONS ROUTINE SEQ 0042 


000040 APTCSUP=040 


-SBTTL TTY INPUT ROUTINE 


Ff EEA AAA AERA AAEAEAAATAAARAAAAAEAEEAAEAHEEAEKEAEAAAAKETARAERAEREERE 


-ENABL LSB 
-DSABL LSB 


SRE AAEAAAEAAAREEAARAREAEAAAARARAARAAAERARARARARERREREEEERAEREEE 


;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


;*CA 


;* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
of RETURN HERE >: CHARACTER IS ON THE STACK 
; ::WITH PARITY BIT STRIPPED OFF 
005144 011646 SRDCHR: MOV (SP) ,-(SP) ::PUSH DOWN THE PC 
005146 016666 000004 000002 MOV 4(SP),2(SP) -:SAVE THE PS 
005154 105777 174064 1$: TSTB. =o @STKS WAIT FOR 
005160 100375 BPL 1$ ::A CHARACTER 
005162 117766 174060 000004 MOVB - a$TKB,4(SP) -:READ THE TTY 
005170 042766 177600 000004 BIC #*C<177> 4(SP) ;;GET RID OF JUNK IF ANY 
005176 026627 000004 000023 CMP 4(SP),#2% -:1S IT A CONTROL-S? 
005204 001013 BNE 3 : ;BRANCH IF NO 
009 06 105777 174032 2$: TSTB 3s @STKS ::WAIT FOR A CHARACTER 
5212 100375 BPL 2$ ::LOOP UNTIL ITS THERE 
005214 1177466 174026 MOVB a$TKB,-(SP) >:GET CHARACTER 
005220 042716 177600 BIC #°C177, (SP) >:MAKE IT 7-BIT ASCII 
005224 022627 000021 CMP (SP)+,#21 ::1S IT A CONTROL-Q? 
, 001366 BNE 2$ ::1F NOT DISCARD IT 
§232 000750 BR 1$ a . RESUME 
s 026627 000004 000140 3$: CMP 4(SP),#140 >:1§ IT UPPER CASE? 
005 42 002407 BLT 4$ = :BRANCH IF YES 
5244 026627 000004 000175 CMP 4(SP) #175 -:1S IT A SPECIAL CHAR? 
009232 003003 BGT 4$ «BRANCH IF YES 
5254 042766 000040 000004 BIC #40,4(SP) ::MAKE IT UPPER CASE 
005262 000002 4$: RTI >:G0 BACK TO USER 
5 FARRAR AAERARAKAEAAARAAT EATER KARA AAARAAAAAAAAAAAAAARERARARERETEE 
emul ROUTINE WILL INPUT A STRING FROM THE TTY 
** : 
3 RDLIN :: INPUT A STRING FROM THE TTY 
:* RETURN HERE : :ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
:* 7; TERMINATOR WILL BE A BYTE OF ALL O'S 
005264 010346 SRDLIN: MOV R3,-(SP) 77 SAVE R3 
005 $6 005046 CLR -(SP) -=CLEAR THE RUBOUT KEY 
5 012703 005520 1$: MOV @STTYIN,R3 ::GET ADDRESS 
$274 022703 005527 2$: CMP @STTYING7,R3 :;BUFFER FULL? 
; 101456 BLOS §6«-«&$ ::BR IF YES 
2 104402 RDCHR -:GO READ ONE CHARACTER FROM THE TTY 
5 112613 MOVB (SP)+,(R3) >: GET CHARACTER 
005 122713 000177 10$:  CMPB  #177,(R3) --1§ IT A RUBOUT 
005312 001022 BNE $$ ::BR IF NO 
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TTY INPUT ROUTINE 


6$: 


7$: 


8$: 


4$: 
3$: 


9$: 


STTYIN: . 


SMNEW: 


EVEN ; 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


PECTIC iit iii titi iii iii iititi titi iitiiiiitiiitiiiiiiiy 
s*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
>*CHANGE IT TO BINARY. 

RS WILL BE CHECKED TO INSURED THEY ARE LEGAL 


:*THE INPUT CHARACTE 


“ASC12 
ASCIZ 


(SP) 
6$ 
#°\,9% 


9 

R3 

al a 
(R3),9$ 
9$ 


$ 
(SP) 
7$ 
#*\,9% 


(SP) 
#25, (R3) 
8$ 

, SCNTLU 
1$ 
#22,(R3) 
3$ 


(R3) 
»SCRLF 


STTYIN 


$ 
, SQUES 


(R3) ,9$ 
9% 
#15, (R3)+ 


-1(R3) 
(SP)+ 


(SP)+,R3 

(SP) ,-(SP) 
4(SP),2(SP 
ASTTYIN,4( 


/*U/<15><12> 
/*G/<15><12> 
<15><12>/SWR = 


/ NEW = / 


A _ 


3:18 THIS THE FIRST RUBOUT? 
:;:BR IF NO 
3: TYPE A BACK SLASH 


;>;SET THE RUBOUT KEY 


;;BACKUP BY ONE 
>;STACK EMPTY? 


R IF YES 
y ay TYPEOUT THE DELETED CHAR. 


=3§ 


=:GO READ ANOTHER CHAR. 
; sRUBOUT KEY SET? 


>:BR IF NO 
;: TYPE A BACK SLASH 
>;CLEAR THE RUBOUT KEY 


san 


CHARACTER A CTRL U? 
F NO 


>: TYPE A CONTROL ‘'U' 


:;G0 START OVER 
3231S S 


ANCH | 
;;CLEAR TH 
YPE A ‘'C 


ER A es a 
NO 

E CHARACTER 
R'' g “.e"* 


=: TYPE THE INPUT STRING 
=:GO PICKUP ANOTHER CHACTER 
-: TYPE A "2° 


::CLEAR THE BUFFER AND LOOP 
“ECHO THE CHARACTER 


;: CHECK FOR RETURN 
:2i90P IF NOT RETURN 
;;CLEAK RETURN (THE 15) 


:; TYPE A LINE 
;;CLEAN RUBOUT 
TORE R3 


FEED 
KEY FROM THE STACK 


;;ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 


; ;sRETURN 
;;STORAGE FOR ASCII CHAR. TO TYPE 
>: TERMINATOR 


: RESERVE 7, BYTES FOR TTY INPUT 


; ; CONTROL 
7) a. 


SEQ 0043 
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READ AN OCTAL NUMBER FROM THE TTY 


s*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘'?"’ WILL BE TYPED 
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 


;*THEN BE RETYPED. THE INPUT IS 
3; *CALL: 
Ye 


; RDOCT 
3° RETURN HERE 
** 


SRDOCT: MOV (SP) ,-(SP) 
MOV 4(SP),2¢(SP) 
MOV RO,-(SP) 
MOV R1,-(SP) 


MOV R2,-(SP) 
1$: RDLIN 
MOV (SP)+,R0 
MOV RO,5$ 
CLR R1 
CLR R2 
23: MOVB (RO) +,-(SP) 
BEQ 3$ 
C #°O, (SP) 
BGT 4$ 
CMPB #°7,(SP) 
BLT 4$ 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
ASL R1 


Re 
BIC #*C7,(SP) 
ADD (SP)+,R1 
2$ 


3$: TST (SP)+ 
MOV R1,12(SP) 
MOV R2,$HIOCT 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,R0 


RT] 

4$: TST (SP)+ 
CLRB (RO) 
TYPE 

5$: WORD 


0 
TYPE  ,$QUES 
BR i$ 
SHIOCT: .WORD 0 
: INPUT OCTAL NUMBER ROUTINE 


TERMINATED BY TYPING A CARRIAGE RETURN. 


>;READ AN OCTAL NUMBER 
a3 ORDER BITS ARE ON TOP OF THE STACK 
; HIGH ORDER BITS ARE IN S$HIOCT 


:;PROVIDE SPACE FOR THE 
;; INPUT NUMBER 

::PUSH RO ON STACK 

7;PUSH R1 ON STACK 

:z;PUSH R2 ON STACK 

;;READ AN ASCIZ LINE 

3;GET ADDRESS OF 1ST CHARACTER 
;;AND SAVE IT 

3;CLEAR DATA WORD 


;;PICKUP THIS CHARACTER 
::1F ZERO GET OUT 

::;MAKE SURE THIS CHARACTER 
3:18 AN OCTAL DIGIT 


s3%2 
7284 
37*8 


;;STRIP THE ASCII JUNK 
ey ag THIS DIGIT 


col 
;: CLEAN TERMINATOR FROM STACK 
;;SAVE THE RESULT 


:;POP STACK INTO R2 

:;POP STACK INTO R1 

:zPOP STACK INTO RO 

; ;sRETURN 

7; CLEAN PARTIAL FROM STACK 
:7SET A TERMINATOR 

:; TYPE UP THRU THE BAD CHAR. 


ne ape 8 "*cR’' g ” £*? 
3; TRY AGAIN 
:;HIGH ORDER BITS GO HERE 


R5,-(SP) 
2(SP),R5 
MOV (R5)+, WHAT 
MOV (R5)+,LOLIM 
MOV (R5)+,HILIM 


; SAVE REGISTER R5. 

; GET FIRST PARAMETER ADDRESS. 
; GET MESSAGE ADDRESS. 

; GET LOW LIMIT FOR THE #@ 

; GET HIGH LIMIT FOR THE #. 


A ee mw 


SEG 0044 
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005746 012537 006054 MOV (R5)+, WHERE ; GET ADDRESS OF INBUFFER 
005752 112537 006056 MOVB (R5)+,LOBITS : GET LOWMASK BITS. 
005756 112537 006057 MOVB (R5)+, ADRCNT : GET # OF #'S TO BE GENERATED. 
005762 010566 000002 MOV R5,2(SP) ; SAVE THE RETURN ADDRESS. 
002768 194601 INLP1: TYPE ; TYPE THE MESSAGE. 
S087 79 SOLcbe — RDOcT 7 READ OCTAL # FROM KE 
: L KEYBOARD. 

005774 021637 006052 CMP (SP) ,HILIM ; IS IT IN HIGH LIMIT? 
006000 003003 BGT 2$ : BRANCH IF NO. 
006002 021637 006050 CMP (SP),LOLIM ; IS IT MORE THAN LOW LIMIT. 
006066 002005 BGE 3$ ; BRANCH IF YES. 
006010 104401 001312 2%: TYPE ,SQUES 7... Sok Bae 

14 106401 001313 TYPE ,SCRLF : TYPE <CR>,<LF> 
006020 000762 BR INLP1 : 
006022 013705 006054 3$: MOV WHERE ,R5 ; GET BUFFER ADDRESS. 
006026 011625 4$: MOV (SP), (R5)+ ; SAVE THE # IN RIGHT PLACE. 
0060 062716 000002 ADD #2, (SP) ; NEXT SEQUENTIAL NUMBER. 
006034 105337 006057 DECB ADRCNT : COUNT BY 1. 
006040 001372 BNE 4$ ; BRANCH IF NOT DONE. 
006042 005726 TST (SP)+ : POP THE STACK POINTER. 
006044 012605 MOV (SP)+,R5 : POP THE REG.5 
006046 000002 RTI 
006050 000000 LOLIM: .WORD 0 
006052 00 HILIM: .WORD O 
006054 000000 WHERE: .WORD 0 
006056 000 LOBITS: .BYTE 0 
006057 000 ADRCNT: .BYTE 0 

: ADVANCE TO NEXT TEST HANDLER 

006060 913716 001442 ADVANCE: MOV NEXT, (SP) ; CRUNCH STACK WITH ADDRESSOF SCOPE CALL 
006064 005037 001444 CLR LOCK : RESET TIGHT LOOP ADDRESS 
006070 000002 RTI ; CHECK TO SEE IF OLD TEST GETS REPEATED 


;SAVE PC OF TEST THAT FAILED AND RO-R5 


006072 016637 000004 001460 .SAVO5: MOV 4(SP) ,SAVPC sSAVE R7 (PC) 
;SAVE RO-R5 


006100 010537 001274 S$V05: MOV RS, SREG5 ;SAVE R5 
006104 0104357 001272 MOV R4, SREG4 ; SAVE R4 
006110 010337 001270 MOV R3,S$REG3 ; SAVE R3 
006114 010237 001266 MOV R2,$REG2 sSAVE R2 
006120 010137 001264 MOV R1,$REG1 ; SAVE R1 
006124 010037 001262 MOV RO, S$REGO ;SAVE RO 
006130 000002 RTI ; LEAVE. 
sRESTORE RO-R5 

006132 013700 001262 -RESOS: MOV SREGO,RO sRESTORE RO 
006136 013701 001264 MOV SREG1,R1 ;RESTORE RI 
006142 013702 001266 MOV SREG2 ,R2 ;RESTORE Re 
006146 013703 001270 MOV SREGS,RS sRESTORE R3 


SS re me re 


eS -senenn 


SE TT TT TTT 
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313 006152 013704 001272 MOV SREGS RG sRESTORE RG 
2153 006156 013705 001274 MOV SREGS,RS sRESTORE RS 
AEs: 006162 000002 RT] > LEAVE 
$139 : :CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
2158 : i 
$122 006164 104401 001313 .CONVR: TYPE ,SCRLF 
160 006170 6 .CNVRT: MOV RO,-(SP) 
2161 006172 010146 MOV R1,-(SP) 
5106 006174 010346 MOV R3,-(SP) 
2165 006176 010446 MOV R4,-(SP) 
2164 006200 010546 MOV R5,-(SP 
2165 006202 017601 000012 MOV @12(SP),R1 
2166 006206 bog 0002 000012 ADD #2,12 (SP) 
2167 006214 012137 006406 MOV (R1)+,WRDOCNT 
2168 006220 112137 006410 1$: MCVB (R1)+#,CHRCNT 
g168 006224 ata 006411 MOVB (R1)+,SPACNT 
2170 006 013137 006412 MOV a(R1)+,BINWRD 
si 006234 122737 000003 006410 CMPB #3, CHRCNT 
ze 006242 001003 BNE 2$ 
217 4 44 rp ity 177400 006412 BIC #177400, BINWRD 
2174 52 013704 006412 23: MOV BINWRD ,R4 
2175 on 56 113705 006410 MOVB CHRCNT,RS 
176 62 012700 011234 MOV #TEMP,RO 
177 006 98 010403 3$: MOV R4,R3 
178 006270 042703 177770 BIC #177770,R3 
$123 one 74 5¢0% 000060 ADD #060, 
180 110320 MOVB R3,(RO)+ 
$182 006806 906004 of 
183 $6 000241 CLC 
184 10 006004 ROR R4 
185 ie 000241 CLC 
Hf 14 006004 ROR R4 
1 46 005305 DEC R5 
188 pts BNE 3$ 
1% 2 012703 011276 MOV #MDATA,R3 
1 ios 4$: MOVB -(RO>,(R3)+ 
191 105337 006410 DECB CHRCNT 
13 001374 BNE 4$ 
19 105737 006411 TSTB SPACNT 
194 001405 BEQ 
2195 4 112723 000040 5$: MOVB #040, (R3)+¢ 
Mb 50 105337 006411 DECB SPACNT 
19 54 ARE BNE 
198 56 105013 6$: CLRB (R3) 
199 104401 011276 TYPE »MDATA 
ores 006406 DEC WROCNT 
1 9 1313 BNE 1$ 
. 7 12605 MOV (SP)+,R5 
74 \seRe MOV (SP)+,R4 
76 012603 MOV (SP)+,R3 
5 ones 012601 MOV (SP)+,R1 
oe 2 012600 V (SP)+,RO 
2207 006404 000002 RT] 
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006406 000000 WRDCNT: 0 
006410 000000 CHRCNT: 0 
006411 SPACNT=CHRCNT+1 
006412 000000 BINWRD: 0 
> TRAP DISPATCH SERVICE 
;ARGUMENT OF TRAP IS EXTRACTED 
:AND USED AS OFFSET TO OBTAIN POINTER 
;TO SELECTED SUBROUTINE 
-SBTTL TRAP DECODER 
FF REAR ARAAAAAARASAAAEATAAATAAAAAAERAEAAAAAARAAEARAARARAAAAREATREEEREREEE 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRA®'’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*#G0 TO THAT ROUTINE. 
006414 010046 STRAP: MOV RO,-(SP) : SAVE RO 
006416 016600 000002 MOV 2(SP),R0 ::GET TRAP ADDRESS 
006422 005740 TST -(RO) ;;BACKUP BY 2 
006424 111000 MOVB (RO) ,RO ::GET RIGHT BYTE OF TRAP 
006426 006300 ASL RO s:;POSITION FOR INDEXING 
006430 016000 006450 MOV STRPAD(RO),RO ;: INDEX TO TABLE 
006434 000200 RTS RO ::G0 TO ROUTINE 
::THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 
006436 011646 STRAP2: MOV (SP) ,-(SP) ::MOVE THE PC DOWN 
006440 016666 000004 000002 MOV 4(SP) ,2(SP) > ;MOVE THE PSW DOWN 
006446 000002 RTI s;RESTORE THE PSW 


-SBTTL TRAP TABLE 


>*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “‘TRAP’’ INSTRUCTION. 


: ROUTINE 


006450 006436 STRPAD: .WORD $TRAP2 
006452 004414 STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
006454 005144 SROCHR ;;CALL=ROCHR TRAP#+2(104402) TTY TYPEIN CHARACTER ROUTINE 
006456 005264 SROLIN ;;CALL=ROLIN TRAP+3(104403) TTY TYPEIN STRING ROUTINE 
006460 005564 SRDOCT ;;CALL=RDOCT TRAP+4(104404) READ AN OCTAL NUMBER FROM TTY 
62 004364 -SCOP1 ;;CALL=SCOP1 TRAP+5(104405) CALL TO LOOP ON CURRENT DATA HANDLER 
64 006072 ~SAVOS ;;CALL=SAVO5 Lt FEY ope He CALL TO REGISTER SAVE ROUTINE 
$6 006132 ~-RESOS ;;CALL=RESOS TRAP+7(104407) CALL TO REGISTER RESTORE ROUTINE 
y por sts -MSTCLR ;;CALL=MSTCLR TRAP+10(104410) CALL TO ISSUE A MASTER CLEAR 
7 7332 ~DELAY ;;CALL=DELAY TRAP+11(104411) CALL TO DELAY 
74 007400 -ROMCLK :;CALL=ROMCLK TRAP+12(104412) CALL TO CLOCK ROM ONCE 
76 007446 .DATACLK ::CALL=DATACLK TRAP+13(104413) CALL TO CLOCK DATA 
006500 007512 TIMER ;;CALL=TIMER TRAP+14(104414) CALL TO DELAY A CLOCK TICK 
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1 08-JUL-80 08 SEQ 0048 
006502 005724 SINPUT ;;CALL=INPUT TRAP+15(104415) CALL TO OCTAL # INPUT ROUTINE 

006504 006164 -CONVRT ;;CALL=CONVRT TRAP+16(104416) CALL TO ..... 

006506 006170 -CNVRT >; CALL=CNVRT TRAP+17(104417) CALL TO... 

006510 006060 . ADVANCE ;:CALL=ADVANCE TRAP+20(104420) CALL TO ADVANCE TO NEXT TEST 


006512 004737 011340 SERROR: JSR PC, CKSWR =CHECK FOR SOFT SWR 
006516 032777 010000 172514 BIT #SW12,aSwWR “BELL ON ERROR? 
006524 001406 BEQ XBX -BR IF NO BELL 
0065 : 105777 172516 TSTB =—s_ aS TPS “TTY READY. 
006532 100003 BPL XBX “DON'T WAIT IF TTY NOT READY. 
006534 112777 000207 172510 MOVB #207, a$TPB :PUSH A BELL AT THE TTY. 
006542 032777 020000 172470 xBx: BIT #SW13,aSwWR :DELETE ERROR PRINT OUT? 
006550 001107 BNE HALTS :BR IF NO PRINT OUT WANTED. 
006552 021637 001216 CMP (SP) ,SERRPC :WAS THIS ERROR FOUND LAST TIME? 
006556 001404 BEO -BR IF YES 
006560 011637 001216 MOV (SP), SERRPC :RECORD BEING HERE 
006564 105037 001203 CLRB ss SERFLG :PREPARE HEADER 
0063 0 104406 1$: SAVOS :SAVE ALL PROC REGISTERS 
572 011605 MOV (SP) RS :GET THE PC OF ERROR 
006574 162705 000002 SUB #2,R5 “GET ADDRESS OF TRAP CALL 
906600 011504 MOV (R5) RG “GET ERROR INSTRUCTION 
2 110437 001214 MOVB R4,SITEMB : COPY ERROR # FOR APT HANDLING 
ivee et ASL RG :MULT BY TWO 
1 504 ADD (R5),R4 :DOUBLE IT 
006612 006304 ASL R4 :MULT AGAIN 
006614 042704 177001 BIC #177001,R4 *CLEAR JUNK 
9066 0 062704 001512 ADD #SERRTB,RG :GET POINTER 
4 012437 006740 MOV (R4)+,ERRMSG § ;GET ERROR MESSAGE 
006630 012437 006752 MOV (R4)+,DATAHD | § ;GET DATA HEADRER 
006634 011437 006764 MOV (RG) ,DATABP “GET DATA TABLE 
0 105737 001203 TSTB SERFLG : TYPE HEADREER 
4 001403 BEQ TYPMSG “BR IF YES 
$ 5737 006764 TST DATABP “DOES DATA TABLE EXIST? 
52 001040 BNE TYPDAT “BR IF YES. 
54 104401 001313 TYPMSG: TYPE , ScRLF 
1 401 001313 TYPE SSCRLF 
5737 001444 TST LOCK 
0 1402 BEQ 1 
72 104401 010016 TYPE MASTEK 
76 104401 010004 1$: TYPE A | 
2 104417 007120 CNVRT ,XTSTN :SHOW IT 
104401 010073 TYPE ,MERRPC -TYPE PC. 
712 104417 007112 CNVRT ,ERTABO :SHOW IT 
716 1 401 001313 TYPE SSCRLF -GIVE A CR/LF 
7 M127 7 177777 001203 MOVB #-1,SERFLG :NO MORE HEADER UNLESS NO DATA TABLE. 
7 737 006740 TST ERRMSG -1S THERE AN ERROR MESSAGE? 
7 1402 BEQ WRKO.FM *BR IF NO. 
736 104401 TYPE > TYPE 
740 000000 ERRMSG: 0 : ERROR MESSAGE 
742 WRKO.FM: : 
742 005737 006752 TST DATAHD “DATA HEADER? 
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SEQ 0049 
0 006746 001402 BEQ TYPDAT :BR IF NO 
1 006750 104401 TYPE : TYPE 
; 006752 DATAHD: 0 : DATA HEADER 
006754 005737 006764 TYPDAT: TST DATABP DATA TABLE? 
4 760 001402 BEQ RESREG :BR IF NO. 
5 006762 104416 CONVRT - SHOW 
$ 006764 000000 DATABP: : DATA TABLE 
0067 ee RESREG: RESOS sRESTORE PROC REGISTERS 
8 0067 122737 000001 001336 HALTS: CMPB #APTENV, SENV : IS APT RUNNING ? 
g goer 78 oon? BNE ; SKIP APT CALL IF NOT. 
113737 001214 007012 MOVB SITEMB,6% ; COPY ERROR #. 
1 007 004737 004714 JSR PC, SATY4 : CALL APT SERVICES. 
; 007012 000000 6$: WORD 0 : ERROR # GOES HERE. 
é eth Sh 000777 9$: R 9$ : LOCK HERE. 
3 7016 022737 004070 000042 3$: CMP #SENDAD,a#42 :1F ACT=11 AUTOMATIC MODE, HALT!! 
$3 5 7024 001403 BEQ 1$ 
3 70 $ 005777 172206 TST aSwR ;HALT ON ERROR? 
233 70 100005 BPL EXITER :BR IF NO HALT ON ERROR 
§ 3 007034 010046 1$: PUSHRO :SAVE RO 
9 007036 016600 000002 MOV 2(SP),RO ;SHOW ERROR PC IN DATA LIGHTS 
ser0 007042 000000 HALT sHALT 
1 007044 012600 POPRO :GET RO 
2 ¢ 007046 005237 001212 | EXITER: INC SERTTL :UPDATE ERROR COUNT 
2 007052 032777 000400 172160 BIT #SWO8 ,aSwR :GOTO TOP OF TEST? 
2344 007060 001007 BNE :BR IF YES 
Sere 007062 032777 002000 172150 BIT #SW10,aSwR :GOTO NEXT TEST? 
$ § SO Ore era 001442 001206 dy ey SLPADR RET FOR NEXT TEST 
3p eats 813766 001200 1$: MOV #STACK,SP :RESET SP 
349 geriee 000177 172076 JMP @SLPADR :GOTO SPECIFIED TEST 
350 7110 000002 2$: RTI -$LPADR 
Sees 007112 000001 ERTABO: 1 
36 007114 006 002 -BYTE 6,2 
2353 007116 001460 SAVPC 
354 007120 000001 XTSTN: 1 
355 007122 003 002 BYTE 3,2 
356 007124 001202 STSTNM 
2357 :ENTER HERE ON POWER FAILURE 
2358 § ere wwe w meme eee e ew enweeneene 
2359 
Sees -SBTTL POWER DOWN AND UP ROUTINES 
2362 SF RRAAAEAAAAAAAEAA AAA AAAAAEAAAAEAAAAAAAARAAARAKERAAAAAAKAARAAEEES 
236 :POWER DOWN ROUTINE 
Oorres 012737 007316 000024 S$PWRDN: MOV #SILLUP ,Q#PWRVEC ;;SET FOR FAST UP 
5 4a 012737 000340 000026 MOV #340 ,a#PWRVEC+2 :: :7 
7142 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
007144 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
aby 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
7150 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
0 7152 010446 MOV R4,-(SP) = PUSH R4 ON STACK 
371 7154 010546 MOV R5S,-(SP) ::PUSH R5 ON STACK A 
3 AE ie 172056 MOV aSWR,- (SP) ::PUSH @SWR ON STACK 
7 716 1063 007322 MOV SP, SSAVRO6 = SAVE SP 
74 stat 012737 007200 000024 MOV #SPWRUP O#PWRVEC ;;SET UP VECTOR 
75 007174 000000 HALT 
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P11  08-JUL-80 08:24 POWER DOWN AND UP ROUTINES SEQ 0050 
S 007176 000776 Bu 72 >: KANG UP 
8 fT TASS ATA AAAAAAAAAAAEAATEAEKAKAHAAAAAEARARAAARARARARAAARAKAREERAREAEE 
9 “POWER UP ROUTINE 
007200 012737 007316 000024 $PWRUP: MOV SSILLUP,a#PWRVEC ::SET FOR FAST DOWN 
1 007 e 01 Aye 007322 MOV SSAVR6,SP ::GET SP | 
j 721 90503 007322 CLR SSAVRE >:WAIT LOOP FOR THE TTY | 
7 48 et 7 007322 1$: INC SSAVR6 :;WAIT FOR THE INC | 
7222 001375 BNE —_:'18 SI0F WORD | 
7224 106401 007562 TYPE =, MPFAIL | 
7 104417 007324 CNVRT PFTA : 
7 105037 001203 CLRB 3s: SERFLG “CLEAR ERROR FLAG. 
007 40 005037 001216 CLR SERRPC : CLEAR LAST ERROR PC 
72464 013701 002066 MOV KMCSR,R1 ; RESTORE DEVICE ADDRESS. 
7250 005011 LR (R1) : CLEAR THE CSR. 
7252 106410 MSTCLR : 
7254 012677 171760 MOV (SP)+, aSwWR ::POP STACK INTO aSwh | 
7260 012605 MOV (SP)+,R5 ::POP STACK INTO R5 | 
007 62 012606 MOV (SP)+,R4 ::POP STACK INTO R4 
7264 012603 MOV (SP)+,R3 :;POP STACK INTO R3 
7 $6 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
7 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
7272 012600 MOV (SP)+,RO ::POP STACK INTO RO 
7274 012737 007126 000024 MOV #SPWRON, @#PWRYEC ;:SET UP THE POWER DOWN VECTOR 
7 ‘ 012737 000340 000026 MOV #340 ,@#PWRVEC+2 ;:PRIO:7 
7310 104401 TYPE ::REPORT THE POWER FAILURE 
7312 007562 SPWRMG: .WORD  MPFAIL ::POWER FAIL MESSAGE POINTER 
7314 oh RTI 
7316 0 S$ILLUP: HALT :: THE POWER UP SEQUENCE WAS STARTED 
007320 000776 BR .-2 :; BEFORE THE POWER DOWN WAS COMPLETE 
7322 000000 SSAVR6: 0 ::PUT THE SP HERE 
007334 000001 PFTAB: 1 
rage 003 002 BYTE 3,2 
007330 001202 STSTNM 
7 35 DELAY: 
7 012777 000020 172534 MOV #20, aKMP04 
7 ! 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
? é 121111 ‘. 121111 *POKE CLOCK DELAY BIT 
7344 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
7 6 ats 121224 :PORT4 JBUS*11 
7350 032777 000020 172516 BIT #BiT4 ,axMPo4 21S CLOCK BIT SET? 
7 1772 BEQ 1$ -BR IF NO 
7 2 RTI 
7 -MSTCLR: 
7 152777 000100 172500 BISB #BIT6,@KMCSRH ;:SET MASTER CLEAR 
7 142777 000300 172472 BICB #BIT6'BIT7,aKMCSRH ;:CLEAR MASTER CLEAR AND RUN 
7376 000002 RTI * RETURN 
74 -ROMCLK: 
7400 152777 000002 172462 BISB #BIT1,aKMCSRH ;:SET ROMI 
7406 013677 172464 MOV a(SP)+,aKMPO06  :LOAD INSTRUCTION IN SEL6 
7412 062746 000002 ADD 2,-(SP) “ADJUST STACK 
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08- POWER 


P11 JUL-80 08:24 DOWN AND UP ROUTINES SEQ 0051 
007416 032777 000100 171614 BIT #SW06 ,aSuR HALT IF SWw06 =1 
7424 001401 BEG 1$ sBR IF SW06 =0 
74 HALT “HALT BEFORE CLOCKING INSTRUCTION 
7430 1 900003 172432 1%: BISE $ #BIT1'BITO,aKMCSRH :CLOCK INSTRUCTION 
74 142777 000007 172424 BICB #BIT2'BIT1'BITO,@KMCSRH ;:CLEAR ROMO, ROMI, STEP 
7444 000002 RTI 
007446 .DATACLK: 
007446 013637 011234 MOV a(SP)+, TEMP PUT TICK COUNT IN TEMP 
745 06 46 000002 ADD #2,-(SP ADJUST STACK 
7456 15277 pe at 172404 1$: BISB #BIT4,aKMCSRH ;SET STEP LU 
7 027777 172376 172374 CMP @KMCSR,@KMCSR ;WASTE TIME 
0074 sokene reps 172370 BI1CB #BIT4,aKMCSRH ;CLEAR STEP LU 
75 08 337 0112 DEC TEMP sDEC TICK COUNT 
75 1364 BNE 1$ :BR IF NOT DONE 
7506 000002 RTI > RETURN 
7510 000001 3$: -BLKW 1 
eae TIMER: 
7512 013637 011234 MOV a(SP)+, TEMP sMOVE COUNT TO TEMP 
007529 062746 000002 ‘i ADD #2,-(SP) sADJUST STACK 
7522 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
7526 be 136s 021364 sPORT4 IBUS* REG11 
7526 032777 000002 172340 BIT #2,aKMPO4 1S PGA CLOCK BIT CLEAR? 
if 001772 - BEQ 1$ :BR IF YES 
if ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021364 :PORT4 _IBUS* REG11 
7542 172324 BIT #2,aKMPO4 :1S PGA CLOCK BIT SET? 
755 BNE 2$ :BR IF YES 
755 TEMP :DEC COUNT 
755 1$ *BR IF NOT DONE 
75 sRETURN 
ay 043040 <200>/PWR FAILED. RESTART AT TEST / 
76 050040 <200>/END PASS CZCKEB / 
764 <200>/R/ 
764 042504 <200>/NO DEVICES PRESENT./ 
767 05 53 <200>/ INSUFFICIENT DATA! / 
771 5 <200>/LOCK ON SELECTED TEST/ 
774 0 /CSR: / 
775 /VEC: / 
Te 1 /PASSES: / 
51117 JERRORS: / 
! 7040 /Test NO: / 
; , 
: 20 bey <200>/SET SWITCH REG TO KMC11°S DESIRED ACTIVE./ 
1 0 <200>/ MAP OF KMC11 STATUS/ 
: 187 Oba —._ ee 
1 26 10 <200>/ PC CSR STATI STAT2 STAT3/ 
1 0 645 < >/ eseeseo = seesess }§£#®eessess +  «sesss }§£«=seee=s / 
10324 6440 <200>/HOW MANY KMC11°S TO BE TESTED?/ 
1 0440 <200>/CSR ADDRESS?/ 
010402 7524 <200>/VECTOR ADDRESS?/ 





CZKCE WMACY11 30A( 
CZKCE.P11 08-JUL 8 
(2) 0104 3 200 071198 
(2) 0104 05 04451 
(2) 010574 05 044510 
tg) 1 052200 050131 
(2) Hy 1h4 00 033233 
(2) 010757 00 0555 
(2) 8p 00 051511 
(2) 011057 00 oe rate 
(2) 011110 100200 04651 
(2) 011155 00 054105 
. 11176 024040 046513 
(2) O11 98 000005 
468 01121 006 003 
ry 1 11212 001276 
470 011214 003 
471 011216 001300 
472 O11 0 003 
475 011 001302 
474 011224 006 003 
475 Ot 15§6 001304 
476 011 006 002 
477 011232 001306 
478 
479 
if 
ise 011234 000000 
48 011276 
ine 011276 000000 
re 5 011340 
i 
i 
i 
491 
492 011340 022737 000176 
495 011 8 a0 
494 011 ; 132737 000001 
495 011 sor 
rhs 11 2777 000007 
49 11 1404 
49 Mg Q 022777 000207 
4 1137 1061 
00 0114 eee 
1 Q114 10346 
114 1 $$ 
114 12737 177777 
1141 2 
5 11238 12 177777 
114 401 005541 
114 104417 
114 011600 
509 0117432 104401 005552 
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050040 
044103 
044103 
020105 
052111 
052111 
052040 
042040 
030503 
042520 
024503 


001240 
001336 
167660 
167650 


011544 


stress 


AND UP ROUTINES 


PRIO: .ASCIZ <200>/BR PRIORITY LEVEL? (4.5,6,7)2/ 
MODU:  .ASCIZ <200>/WHICH LINE UNIT? IF NONE TYPE "'N'', IF M8201 TYPE '1"', 
MV35:  .ASCII <200>/WHICH MODEM TYPE, TYPE 'D'' FOR KMC11-DA (RS232C) .OR/ 
-ASCIZ <200>/TYPE ‘F'’ FOR KMCI1-FA (V.35) ? / 
LINE: .ASCIZ <200>/SWITCH PAC#1 (DDCMP LINE #)?/ 
BM: -ASCIZ <200>/SWITCH PAC#2 (BM873 BOOT ADD) ?/ 
CONN: .ASCIZ <200>/1S$ THE LOOP BACK CONNECTOR ON?/ 
NOACT: .ASCIZ <200>/NO DEVICES ARE SELECTED/ 
CONERR: .ASCIZ <200><200>/KMC11 AT NONSTANDARD ADDRESS PC: / 
CNERR: .ASCIZ <200>/EXPECTED FOUND/ 
KMCM: .ASCIZ / (KMC) / 
EVEN 
XSTATQ: § 
.BYTE 6,3 
STMPO 
.BYTE 6,3 
STMP1 
.BYTE 6,3 
STMP2 
-BYTE 6,3 
STMP3 
.BYTE 6,2 
STMP4 
EVEN 
sBUFFERS FOR INPUT-OUTPUT 
TEMP: 0 
.=, +40 
MDATA: 0 
=. +40 


sROUTINE USED TO CHANGE SOFTWARE SWITCH 
REGISTER USING THE CONSOLE TERMINAL 





CKSWR: CMP #SWREG, SUR :1S THE SOFT SWR BEING USED? 
BNE CKSWRS BR IF 
BIT8 3=—s_« #1, SEN : IS IT RUNNING UNDER APT? 
BNE CKSWRS > EXIT IF YES. 
CMP 47 ,asTkB “WAS CTRL G TYPED? (7 BIT ASCII) 
BEQ 1$ sBR IF Y 
CMP #207 ,aSTKB “WAS CTRL G TYPED? (8 BIT ASCII) 
BNE CKSURS “BR IF NO 
1$: MOV R2,-(SP) >STORE R 
MOV R3,-(SP) *STORE R 
MOV R4.-(SP) : RG 
MOV 4-1, SUFLG “SET SOFT TYPE OUT FLAG 
CKSWR1: CLR R2 “CLEAR NEW SWR CONTENTS 
MOV #-1,R4 ;SET FLAG TO ALL ONES 
TYPE  ,SMSUR “TYPE "SWR= 
CKSWR2: CNVRT -TYPE OUT PRESENT CONTENTS 
SOF TSW OF SOFT SWITCH REGISTER 
CKSWR3: TYPE  ,SMNEW :TYPE ‘NEW? 


SEQ 0052 


| 
IF M8202 TYP 


a ee 
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: E 
10 0114 7 011546 CKSUR4: JSR PC_ INCHAR :GET RESPONSE 
13 1146 14 H and Bro 15.85 >BR IF YES 
13 114 2703 000012 CMP #12.R3 :WAS IT A LF? 
Q 4$ YES 
18 914056 +708 000025 on #25,R3 “WAS IT CTRL U? 
a14 Otte are BEOQ CKSUR1 “BR IF YES(START OVER) 
19 M44 , 000007 CMP 87 RS >If CNTL G GET NEXT CHAR 
18 O16 be BEQ CKSWR4 
Bie ie oF AOE Pa RB Boar 
- oR sONLY 0- 
y b11400 goss03 m «|S ae Stine 
¢ On : =a 
# :ADD LAST DIGIT 
Se 1484 i aR eriun >GET NEXT CHARACTER 
382 11512 012766 002402 000006 4$: MOV #.START.6(SP)  :LF WAS TYPED SO GO TO START 
§ 11 7 5$: ST Re ;1$ FLAG CLEAR 
{ BNE 6$ > IF NOT DON'T CHANGE SOFT SWR 
1; 4 010 ¢ 167510 MOV R2,aSWR >IF YES THEN WRITE NEW CONTENTS TO SOFT SwR 
3 O418 5037 011544 6$: CLR SuFLG « CLEAR TYPEOUT FLAG 
w, e 
118 003 MOY (SP)+.R3 “RESTORE R3 
11540 01260 MOV (SP) +_R2 “RESTORE R2 
; 1154 $85 CKSWRS: RTS PC > RETURN 
011544 000000 SWFLG: 0 
: 115466 196375 167472 INCHAR: TsT8 astxs 
11554 017703 167466 MOV aSTKB,R3 
$40 11880 105777 167464 ste astPs 
§ 1 A 77 (167460 MOV R3,aSTPB 
44 O11 703 000200 BIC #BIT7,R3 
45 11576 207 RTS P 
) 0000 OFTSW: 1 
rt BT eos 56 002 ™ .BYTE 6,2 
549 011604 000176 SWREG 


——- 
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001504 


001470 


002056 


002070 
002072 
002074 
002076 


002060 
002062 
002064 


001446 


CYCLE: 


1$: 


2$: 


4$: 


c 3 


;ROUTINE USED TO “‘CYCLE*’ THROUGH UP TO 16 KMC11'S 

> THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
AND RUNS THE SPECIFIED KMC11°S. THIS ROUTINE *MUST® 

sBE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 

>SETUP NECESSARY. : 


TST KMACTV ;ARE ANY KMC11°S TO BE TESTED? 
BN $ ;BR IF 


E 1 ; K. 
TYPE »NOACT sNO KMC11°S SELECTED!! 
HALT ;STOP THE SHOW. 
BR i 4 sDISQUALIFY CONT. SW. 
CLC ;CLEAR PROC. CARRY BIT 
ROL RUN UPDATE POINT 
ADC RUN ;CATCH CARRY FROM RUN 
ADD #4 MILK UPDAT I 


; E POINTER 
ADD #10, CREAM “UPDATE ADDRESS POINTER. 
CMP #KM.MAP+200, CREAM 
:KEEP GOING; NOT ALL TESTED FOR. 
MOV #KM.MAP,CREAM :RESET ADDRESS POINTER. 
MOV #CNT.MAP,MILK :RESET PASS COUNT POINTER 
BIT RUN, KRACTV :1S THIS ONE ACTIVE? 


BEQ % s 

MOV CREAM,RO :GET ADDRESS POINTER 

MOV ILK,R2 “GET PASS COUNT POINTER 

MOV (RO)+,KMCSR “LOAD SYSTEM CTRL. REG 
v (RO) ,KMRVEC “LOAD VECTOR 

BIC #177000, KMRVEC :CLEAR UNWANTED BITS 


(RO)+, STAT ap STATI 


;LOAD ERROR COUNT 
SAVE CORE THIS WAY! 


MOV KMCSR,KMCSRH 

INC KMCSRH 

MOV KMCSRH,KMCTL 

INC KMCTL 

MOV KMCTL, KMPO4 

Roy RRAOS ERPOS 

ADD RO, KMPO6 

MOV KMRVEC.KMRLVL == PTY LVL 
ADD RO, : 

MOV KMRLVL,.KMTVEC :TX VEC 
ADD RO, KMTVEC : 

MOV KMTVEC .KMTLVL 9: TX LVL 
ADD RO, KMTLVL 

BIT #SWO1,STRTSW  :IS TEST NO. SELECTED 
BEQ 7$ “BR IF NO 


TST a#42 ;RUNNING IN AUTO MODE? 


SEQ 0054 
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001313 


014140 
001202 
001202 
001206 
007643 
000002 


027716 
001312 


002100 


012740 
000001 


000002 
000004 


001446 


001206 


001446 


001306 


24 PAGE 56 
POWER DOWN AND UP ROUTINES 
BNE 7$ 
TYPE , SCRLF 
INPUT 
MTSTN 
1000 
STSTNM 
BYTE O 
-BYTE 1 
MOV #TST1,R0 
5$: CMP (PC)+, (RO) 
MOV (PC)+,a(PC)+ 
BNE 6% 
CMP STSTNM,2(RO) 
BNE 
CMP #STSTNM,4(RO) 
BNE $ 
MOV RO, $LPADR 
TYPE MR 
BIC #SWO1,STRTSW 
BR 8$ 
6$: TST (RO) + 
CMP RO, #T_AST+#10 
BNE 
TYPE ,SQUES 
BR 4$ 
7$: MOV #TST1,SLPADR 
8$: MOV KMCSR,R1 
JMP aSLPADR 
:CSR AND 
sNOTE: 
; ADDRESS RANGE ( 
; AND THE VECTOR 
AUTO.SIZE: 
RESET 
CSRMAP: MOV #KM.MAP,R2 
18: CLR (R2)+ 
CMP #KRM.END,R2 
BNE 1$ 
CLR KANUP 
MOV #KA.MAP,R2 
CLR KMACTV 
BIT #Sw00,STRTSW 
BNE +6 
JMP 7$ 
V #1 ,STMP4 
INPUT 
NUM 


;BR IF YES 


:CMP FIRST WORD TO 12737 


;BR IF NOT SAME 
;DOES STSTNM MATCH? 
;BR IF NO 


"1S$ LAST WORD Ok? 
“BR IF NO 
"IT IS A LEGAL TEST SO DO IT 


:POP RO 

sAT END YET? 

; IF NO 

;YES ILLEGAL TEST NO. 

> TRY AGAIN 

Agile S$LPADR ADDRESS 


:R1 = BASE KMC11 ADDRESS 
;GO START TESTING. 


ROUTINE USED TO ‘AUTO SIZE’’ THE KMC11 
: ECTO 


V R. 

THE CSR MAY BE ANY WHERE IN THE FLOATING 
160000: 164000) 

MAY BE ANY WHERE IN THE 


FLOATING VECTOR RANGE (300:770) 


> INSURE A BUS INIT. 
;LOAD MAP POINTER. 
; ZERO ENTIRE MAP 
sALL DONE? 


:BR IF NO 

sSET OCTAL NUMBER OF KMC11°S TO 0 
:R2 POINTS TO KMC MAP 

sCLEAR ACTIVE 

sQUESTIONS? 

:BR IF YES 

:1F NO SKIP QUESTIONS 

»START WITH 1 


SEQ 0055 


—-- ee - 
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eset 
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$666 012320 000020 16. 

26635 012322 0601302 STMP2 
2664 012324 000 BYTE 0 
$065 012325 1 -BYTE 1 

666 01 ¢¢ 013737 001302 001472 MOV STMP2,KMNUM :KMNUM = HOW MANY 
red! 01 104401 001313 TYPE ,SCRLF 

668 012340 106416 CONVRT ;TYPE WHICH KMC IS BEING DONE 
§ 9 012342 013372 WHICH :$TMP4 IS WHICH KMC 
670 012344 005237 001306 INC STMP4 
srt 01 28 104415 INPUT 

672 012352 010364 CSR 
26735 012354 160000 160000 

674 012356 164000 164000 

675 01 001304 STMP3 

£76 4 306 000 -BYTE 
267 1 001 -BYTE 1 

678 01 013722 001304 MOV STMP3,(R2)+ :STORE CSR IN MAP 

679 012370 104415 INPUT 

680 012372 010402 VEC 
2681 012374 000000 0 
gone SESH 000776 776 
26835 012400 001304 STMP3 

684 01 re 000 -—BYTE 0 

685 01240 001 -BYTE 1 

686 012404 013712 001304 MOV STMP3, (R2) ;STORE VECTOR IN MAP 
687 012610 104401 10$: TYPE 

688 012412 010423 PRIO :ASK WHAT BR LEVEL 

$89 12414 0047 7 013664 JSR PC, INTTY :GET RESPONSE 

1 420 2703 000024 CMP #24 ,R3 : 

691 012424 101014 BHI 50$ :BR IF LESS THAN 4 

692 012426 022703 000027 CMP #27,R3 : 

693 012452 103411 BLO 50$ :BR IF GREATER THAN 7 
694 ic 012704 000011 MOV #11,R4 :R4 = NUMBER OF SHIFTS 
695 012440 006303 ASL R3 SHIFT R3 LEFT 

4 12442 005304 DEC R4 :DEC SHIFT COUNT 

69 New 001375 BNE 74 BR IF NOT DONE 

698 012446 042703 170777 BIC #170777,R3 ;BIC UNWANTED BITS 
344 Aste 50312 BIS R3,(R2) ;PUT BR LEVEL IN STATUS MAP 

012454 03 BR 8$ : CONTINUE 

701 OI eee 104401 50$: TYPE 

7 ¢ 12460 001312 SQUES sRESPONSE IS OUT OF LIMITS 
7 12462 000752 10$ sTRY AGAIN 

7 12464 8$: 

705 01 9$: 

7 012 16$: 

708 

7 01 TYPE 

709 0124 MODU :ASK WHICH LINE UNIT 
710 0124 013664 JSR PC, INTTY :GET REPLY 

711 (01 000021 CMP #21 ,R3 ie al 

ie 1 BEG 0$ 

71 4 000022 CMP #22,R3 “igs 3 

714 «(1 BEQ 31$ 

715 01 000116 CMP #116,R3 2" 

a 01 BEQ 328 

717 «01 TYPE 
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010000 
020000 
013664 


000131 
000116 


040000 
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013664 
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000106 


000004 
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001304 


O8-JUL-80 08:24 
724 POWE 


177776 


000002 


000002 


32%: 


31$: 
30$: 


17$: 


440$: 


442$: 


443$: 
441$: 


18$: 
19$: 


PAGE 58 
R DOWN AND UP ROUTINES 


SQUES 
BR 
B1S 
CMP 


IF NOT A 1,2 OR N TYPE ‘'?"' 
77 N 


16$ -TRY AGIA 

#B1T12,(R2)*  :SET BIT 12 IN STAT2 IF NO LU 

(R2)+,(R2)¢ -POP OVER STAT2 AND STAT3 

#81113, (R2) :SET BIT 13 IN STAT2 IF M8202 
-ASK IF LOOP-BACK IS ON 

PC_INTTY “GET REPLY 

#131,R3 :¥ 

17$ 

#716,R3 :N 

18$ 


;1F NOT Y OR N TYPE ‘'?"' 
30$ ; TRY AGAIN 

#B1T14,(R2)+ : TURNAROUND IS CONNECTED 
— >; M8202? 


; ASK QUESTION 
; ABOUT MODEM TTYPE 


PC, INTTY ; GET ANSWER. 
#°D, RS ; IS IT DMC11-DA? 
442% ; NO. 
#BIT2,2¢(R2) ; YES INDICATE IT IN STAT3 
441$ 
#'F RS :1S IT A DMC1I-FA (v.35)? 
443% ; YES-TAKE CARE OF IT. 

; NO ASK OPERATER WHATS GOING ON. 
440% ; REASK QUESTION 
#BIT2,2¢(R2) ; YES V.35, RECORD IN STAT3 
198 ; END DECISION POINT. 
#B1T14,(R2)+ :NO TURNAROUND 
: 
STMP3,(R2)+ :STORE SWITCH PAC IN MAP 


SEQ 0057 


et 
~ - ~ a 
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ZKCE.P11 08-JUL-80 08:24 POWER DOWN AND UP ROUTINES SEQ 0058 
2774 012716 000 BYTE 0 
2775 012717 001 -BYTE 1 
776 012720 1137 001304 “OvB STMP3,(R2)+ :STORE SWITCH PAC IN MAP 
777 012726 0057 TST (R2)+ :POP OVER STAT3 
778 0127 $ 0053 001302 33$: DEC STMP2 :DEC KMC CJUNT 
2779 +0127 001200 BNE 12$ :BR IF MORE TO DO 
2780 0127 137 013272 JMP 13$ : CONT INUI: 
2781 012740 01 a 4 1 7$: MOV #160000,R1 :SET FOR FIRST ADDRESS TO BE TESTED 
18 012744 012737 013364 000004 MOV #6$ 084 :SET FOR NON-EXISTANT DEVICE TIME OUT 
7 012752 005011 2$: CLR (R1) CLEAR SELU 
Ah 012754 005711 TST (R1) IF KMC11 KMCSR S/B 0 
785 012756 001135 BNE 3$ :IF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO KMC11 
7 012760 005061 000006 CLR 6(R1) CLEAR SEL6 
7 01 166 005761 000006 TST 6(R1) > IF KMC11 THEN KMRIC S/B =0! 
7 0127 9 0011 BNE 3$ sBR IF NOT KMC1i 
789 012772 012711 002000 MOV #B1T10,(R1) -SET ROMO 
2790 4 776 005061 000004 CLR 4(R1) :CLEAR SEL4 
2791 ~O1 ‘ 012761 125252 000006 MOV #125252,6(R1)  <:WRITE THIS TO SEL6 
79 gt 10 052711 020000 BIS #B1T13,(R1) sWRITE IT! 
79 13014 022761 125252 000004 CMP #125252,4(R1)  :WAS IT WRITTEN? 
2794 013022 001113 BNE 3$ :IF NO IT IS NOT CRAM 
2795 -AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A KMC11 CSR ADDRESS. 
796 013024 21$: 
13024 010122 22%: MOV R1,(R2)+ ;STORE CSR IN CORE TABLE. 
7 139 $ 012711 001000 158: MOV #B1T9, (R1) :CLEAR LINE UNIT LOOP 
799 01 005061 04 CLR 4(R1) CLEAR PORT4 
B00 013036 012761 122113 000006 MOV #122113,6(R1)  ;LOAD INSTRUCTION (CLR DTR) 
30) 13044 3 711 BIS #B1T8, (R1) :CLOCK INSTRUCTION 
é 13050 012761 021264 000006 MOV #021264,6(R1) LOAD INSTRUCTION 
80 1 052711 000400 BIS #B1T8,(R1) :CLOCK INSTRUCTION 
1 122761 000377 000004 CMPB #377 ,4(R1) :1S IT ALL ONES? 
5 01 1003 BNE .*10 :BR IF NO 
; Me 2 1¢ 010000 BIS #B1T12,(R2) :IF YES, NO LINE UNIT, SET STATUS BIT 
1 109 are 000002 000004 BIT #B1T1,4(R1) :1S SWITCH A ONE? 
151 1403 BEQ #10 | sBR IF M8201 
10 013110 rie 060000 BIS #B1T13'BIT14,(R2) ;MB202 ASSUME CONNECTOR 
11 013114 2 BR : CONNECTOR ON) 
Hf 13116 032761 000010 000004 BIT #B1T3,4(R1) :1S MRDY SET 
1 13124 1063 BNE 20% :BR IF M8201 NO CONNECTOR (ON LINE) 
14 013126 012761 000100 000004 MOV #B1T6,4(R1) LOAD PORTS 
156 0137 12761 122113 090006 MOV #122113,6(R1) | :LOAD INSTRUCTION 
16 13142 052711 00 BIS #B1T8,(R1) :CLOCK INSTRUCTION(SET DTR) 
17 013146 012761 021264 000006 MOV #021264,6(R1) :LOAD INSTRUCTION 
18 013154 ari 000400 BIS #BIT8,(R1) :CLOCK INSTRUCTION(READ MODEM REG) 
19 gt 160 032761 000010 000004 BIT #B1T3,4(R1) :1S MRDY SET NOW? 
0 01 166 140 BEQ 20% :BR IF NO CONNECTOR 
1 0131 {4 040000 BIS #B1114,(R2) :SET STATUS BIT FOR CONNECTOR 
; 13174 72 208: 7ST (R2)+ :POP POINTER 
13176 if 4 021324 000006 MOV #021324,6(R1)  ;:PUT INSTRUCTION IN PORT6 
4 01 12711 001400 #BIT9'BIT8,(R1) :PORT4 LU 15 
§ 013210 156122 B1SB 4(R1), (R2)+ :STORE DDCMP LINE # IN TABLE 
$ 13214 012761 ea i7ae 000006 MOV #0213446 ,6(R1) :PORT6_INSTRUCTION 
13222 012711 400 MOV #BITB'BIT9,(R1) : CLOCK INSTR. 
8 01 $ A301¢¢ 04 BISB 4(R1),(R2)+ :STORE 84873 ADD IN TABLE 
29 O01 005722 TST (R2)+ :POP OVER STAT3 
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ZKCE MACY11 30A(1052) O8-JUL-80 08:24 PAGE 60 
ZKCE.P11 08-JUL-80 08:24 POWER DCWN AND UP ROUTINES SEQ 0059 
01 5011 CLR (R1) :CLEAR ROMI 
HY 1 01 i $08 37 001472 INC KMNUM 7UPDATE DEVICE COUNTER 
$e ¢ 13242 022737 000020 001472 CMP #20, KMNUM ;ARE MAX. NO. OF DEV FOUND? 
° 1 8 001410 BEO 13$ :YES DON'T LOOK FCR ANY MORE. 
1325 ted 3$: CLR (R1) :CLEAR BIT 10 
835 013254 306t 000006 CLR 6(R1) :CLEAR SEL 6 
8 013260 $f 1 000010 14$: ADD #10,R1 :UPDATE CSR POINTER ADDRESS 
; 44 164000 CMP #164000,R1 
01 S 12 BNE 2$ ;BR IF MORE ADDRESS TO CHECK. 
ss 9 01327 Fst 14 001470 13$: CLR KMACTV 
840 01 28 5737 001472 TST KMNUM ;WERE ANY KMC11'S FOUND AT ALL? 
2841 01 001423 BEO 5$ sERROR AUTO SIZER FOUND NO KMC11°S IN THIS SYS. 
He 4 HE 4 001472 MOV KMNUM,R1 
1 10137 001476 MOV R1,SAVNUM :SAVE NUMBER OF DEVICES 
844 01 000241 4$: CLC 
845 01 18 137 001470 ROL KMACTV ;GENERATE ACTIVE REGISTER OF DEVICES. 
18 1 005237 001470 INC KMACTV SET THE BIT 
84 1 of 1 DEC R1 
rh: 01 1371 BNE 4$ ;BR IF MORE TO GENERATE 
9 013332 Hy te 000006 000004 MOV #6,a84 >RESTORE TRAP VECTOR 
850 0135340 013737 001470 001474 MOV KMACTV,SAVACT ;SAVE ACTIVE REGISTER 
4 01 $ 000137 013400 JMP VECMAP :GO FIND THE VECTOR NOW. 
ae 01 104401 007646 5$: TYPE ,MERR2 :NOTIFY OPR THAT NO KMC11°S FOUND. 
85 13356 005000 CLR RO ;MAKE DATA LIGHTS ZERO 
854 HALT :STOP THE SHOW 
855 2 000776 R 72 ;DISABLE CONT. SW. 
$B26 ; 012716 013260 6$: MOV #14$, (SP) :ENTERED BY NON-EXISTANT T!ME-OU/. 
See 370 000002 RTI :RETURN TO MAINSTREAM 
859 re 000001 WHICH: 1 
660 3374 02 002 BYTE 2,2 
3376 001506 STMP4 


a 


DONE 
#12,R4 =R4 1S INDEX REGISTER 
177776 BRLVL(R4) PS “SET PS TO 7 
00 000004 MOV #200,4(R1) 
#8179, (R1) :SET ROMI 
11 000006 MOV #121111,6(R1) :PUT INSTRUCTION IN PORT6 


1 P 
400 MOV #B1T9'BITB,(R1) ; FORCE AN INTERRUPT 
00 7$: INCB RO ALL 
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00 032737 000001 001446 VECMAP: BIT #Sw00, STRTSW 
864 06 001114 BNE 
s 10 012737 000340 000022 MOV #340,a822 :SET IOT TRAP PRIO TO 7 
16 012737 013572 000020 MOV #4$,a#20 “SET IOT TRAP VECTOR 
4 01 702 002100 MOV #KM. MAP, R2 =SET SOFTWARE POINTER 
012700 000300 MOV #300,R0 :FLOATING VECTORS START HERE. 
012701 000302 MOV #302,R1 :PC OF IOT INSTR. 
23 01 180 1$: MOV R1,(RO)+ :START FILLING VECTOR AREA 
42 012721 000004 MOV #4. (R1)+ -WITH .42; IOT 
46 02 021 CMP (rd) +, (R1)+ “ADD 2 TO RO ¢R1 
7 50 020127 001000 CMP R1,#1000 
74 54 101771 BLOS3=—s«éd1$ :BR IF MORE TO FILL 
75 56 013737 001470 001276 MOV KMACTV,STMPO =; STORE TEMPORALLY 
4 64 37 001276 2$: ROR STMPO :BRING OUT A BIT 
7 0 103063 BCC “BR IF ALL 
72 012 000012 V 
so 0164 7 013650 MOV 
2 
are 
5 
5 0 
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CE.P11 08-JUL-80 08:24 POWER DOWN AND UP ROUTINES SEQ 0060 
S86 0 001376 BNE .72 :FOR TIME TU INTERUPT 
88 162704 000002 SUB #2,R4 :GET NEXT LOWEST PS LEVEL 
rts 001404 BEQ 6 -BR IF RG = 0 
016437 013650 177776 MOV BRLVL(R4),PS sMOVE NEXT LOWER LEVEL IN PS 
890 000767 BR :BR TO DELAY 
891 0 O3¢76¢ 005300 000002 6$: BIS #5300,2(R2) ;NO INTERUPT ASSUME 300 AT LEVEL 5S AND FIX KMC11 LAIER 
892 0 00 on 3$: CLR (R1) :CLEAR ROM 
89 : 2 Oe 000010 ADD #10,R2 :POP SOFTWARE POINTER 
894 01 7 BR 2$ :KEEP GOING 
895 4 166 000002 4$: BIS (SP) ,2(R2) -GET VECTOR ADDRESS 
+4 1 042762 000007 000002 BIC #7,2(R2) :CLEAR JUNK 
97 01 016405 013652 MOV BRLVL+2(R4),R5 :GET BR LEVEL OF KMC11 
one 1 19 906393 ASL RS SHIFT LEVEL 4 PLACES 
99 013612 006305 ASL R5 :TO THE LEFT FOR THE 
900 013614 006305 ASL RS :STATUS TABLE 
1 013616 30 ASL RS 
Mt 013620 170777 BIC #170777,R5 :CLEAR UNWANTED BITS 
013624 050562 000002 BIS R5,2(R2) ;PUT BR LEVEL IN STATUS TABLE 
904 01 022626 CMP (SP)+,(SP)+ :POP IOT JUNK OFF STACK 
3906 a 2 012716 013562 my #3$, (SP) -SET FOR RETURN 
907 01 i8 012737 004134 000020 S$: MOV #SSCOPE ,a#20 : RESTORE SCOPE VECTOR 
sous 013646 000207 RTS PC ALL DONE WITH ‘‘AUTO SIZING'' 
910 013650 BRLVL: PRO LEVEL 0 
911 + 52 000000 PRO sLEVEL 0 
4 13654 200 PR4 LEVEL 4 
91 4 5 4 ot PR5 sLEVEL 5 
914 01 00 PR6 : L 6 
a 013662 000340 PR7 sLEVEL 7 
17 
g019 13668 105777 165354 INTTY: TSTB asTKs :WAIT FOR DONE 
2919 013670 100375 BPL -- 
920 013672 017763 165350 MOV astKB,R3 :PUT CHAR IN R3 
921 013676 105777 165346 TSTB asTPs sWAIT UNTIL PRINTER IS READY 
2 ¢ 13702 100375 BPL -4 
9 15704 010377 165342 MOV R3,a$TPB ECHO CHAR 
4 013710 703 000240 BIC #BIT7'BITS,R3  ;MASK OFF LOWER CASE 
§ 0135714 207 RTS PC RETURN 
$ 13716 APT.SIZE: 
1 ri6 000005 RESET 
137 010046 Vv RO,-(SP) :;PUSH RO ON STACK 
13722 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
13724 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
137 10 $ MOV R3,-(SP) : PUSH R3 ST 
137 38 014132 CLR VECTR : CLEAR THE LOCAL VARIABLE 
137 38 7 014136 CLR PRIRTY : AN UP LOCAL VARIABLE 
§ 0135740 013 9 001376 MOV S$CDW1,RO : GET THE DEVICE C 
13744 01 001476 MOV RO, SAVNUM ; SAVE THE NO. OF DEVICES 
: 13750 012701 001346 MOV $i, ; GET EXTRA INFO, BITS POINTER 
13754 013737 001372 014134 MOV SBASE ,BA ; GET BASE CSR ADDRESS 
1 762 113737 007 014132 mMOVB = $VECTI : GET THE VECTOR 
0 0137 113737 001 7 014136 MOVB SVECT1+1,PRIRTY ; GET THE PRIORITY 
1 13776 013737 1374 001470 MOV SDEVA,KMACTV ; SAVE THE KMC°S SELECTED ACTIVE 








CZKCE MACY11 30A(1052) 
CZKCE.P11 08-JUL~-80 
ok 014004 013737 
45 014012 01270 
44 014 38 0127 
945 014 + ° 
$ Sa 
9% 140 are 
2948 0140 O1§ gS 
$325 bp 0137 
ga Sie ce 
952 0140 1 
5 HS Be 
954 0140 oneais 
955 014 006313 
228 14 313 
57 014 313 
28 014 053723 
5 by presse 
960 014074 005723 
1 014076 005300 
+4 Hetty 001407 
965 014102 fg te 
964 014110 062757 
965 014116 000747 
ape 0 
141 g 012603 
2968 nied ; ot sens 
oe SE Sia 
971 0141 000207 
972 014132 000000 
9735 0141 000000 
4 014136 000000 
if 
97 
978 
79 
980 
#83 
5 
9 
5 
014140 000004 
Bieiee 012737 
9 014150 012737 
1 014156 rts 144 
4 014162 012 Og 
141 ASts3 
141 021224 
5 014172 016104 
Babos 042704 
14202 012705 


O8-JUL-80 08:24 PAGE 62 
724 POWER DOWN AND UP ROUTINES 
001470 001474 MOV KMACTV,SAVACT ; SAVE THE ACTIVE REGISTER 
001402 MOV DOWD ,R ; GET ADDRESS OF FIRST DEVICE DESCRIPTOR WORD 
002100 MOV #KM.MAP,RS ; GET POINTER TO DEVICE MAP 
3$: CLR (R3)+ ; CLEAR DEVICE MAP 
002300 c #KM.END,R2 ; IS WHOLE DEV.MAP CLEARED? 
BGT 3$ ; NO, THEN GO ON. 
002100 MOV #KM.MAP_RS ; RESTORE DEV.MAP POINTER. 
014134 1$: MOV BASE, (R$)+ ; LOAD CSR ADDRESS 
000001 MOVB (R1)+,1¢(R3) ; GET EXTRA INFO. BITS 
ASR (R3) ; SET IT IN RIGHT POSITION. 
ASR (R3) ; SET IT IN RIGHT POSITION. 
014136 BIS PRIRTY, (R35) ; GET PRIORITY IN STAT1 
ASL (R3) ; SET THEM IN RIGHT POSITION 
ASL (R3) ° es ee ee | tet 
ASL (R3) : ae et ee oe se 
ASL (R3) : se te oe ee oe 
014132 BIS VECTR,(R3)+ ; GET THE VECTOR IN STATI. 
MOV (R2)+,(R3)+ ; GET THE STAT2 FROM DDWXX 
TST (R3)+ ; SKIP OVER STAT3 
DEC RO ; COUNT BY 1 
BEO 2$ ; ALL DONE? 
000010 014134 ADD #10,BASE ; INCREMENT BASE CSR ADDRESS BY 10 
000010 014132 ADD #10, VECTR ; INCREMENT VECTOR ADDRESS BY 10 
9s BR 1$ : SET THE NEXT MAP ENTRY 
MOV (SP)+,R3 77;POP STACK INTO R3 
MOV (SP)+,R2 :;POP STACK INTO R2 
MOV (SP)+,R1 :;POP STACK INTO R1 
MOV (SP)+,R0 :;POP STACK INTO RO 
RTS PC ; RETURN 
VECTR: .WORD 0 
BASE : -WORD QO 
PRIRTY: .WORD 0 
seeneneaeeerereereteececerer TEST |] seenencaceneeerrreueerenens 
:*OUT CONTROL REGISTER READ/ONLY TEST 
:*D0 A MASTER CLEAR, VERIFY THA’ ALL READ/ONLY 
:*B1TS ARE IN THE CORRECT STATE 
FERRARA RAHKSARAESA ASAE AHA AAAARARAARAAAHARARERAAAREAAAARARAERAERE EES 
s eer 3 
PTITITITITI ITLL TLL LLL 
TST1: SCOPE 
000001 001202 MOV #1, STSTNA ; LOAD THE NO. OF THIS TEST 
014214 001442 MOV @TST2,NEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
165704 CLR @kACSR :CLEAR SELO 
000011 MOV #11,R2 :SAVE R2 FOR TYPEOUT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
021004 !<20*11> sPORT4 LINE UNIT REG 11 
000004 MOV 4(R1),R4 :PUT ‘FOUND’ IN R4 
000054 BIC = #54, RG CLEAR UNKNOWN BITS 
000020 MGV #20,R5 ;PUT “EXPECTED’’ IN RS 
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1 08-JUL-80 08:2 LINE UNIT READ/ONLY TESTS SEQ 0062 
014 06 120504 CMPB sR, RG :1S OUT READY SET? 
014210 001401 BEQ 1$ :BR IF YES 
014212 104002 ERROR 2 ;ERROR IN LU 11 
014214 1$: 
saeakaeeeeeeeeneretetereaanane TEST 2 xeaeeneeenecanaeeeneeeerees 
;*IN CONTROL REGISTER READ/ONLY TEST 
;*D0 A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 
:*BITS ARE IN THE CORRECT STATE 
5 REE ARE RARER EEE EEA TAA AAAEAERERARRERAAAEHEA AHHH EEE EEE Ee 
; TEST 2 
PPT TITITITITITITITILITTT ITT LI TTT LiLiLitiTiiiiiiiriiiiiiittte 
014214 000004 TST2: SCOPE 
O14g6 012737 000002 001202 MOV #2,STSTNM ; LOAD THE NO. OF THIS TEST 
014224 012737 014262 001442 MOV #TST3,NEXT ; POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
014232 012702 000012 MOV #12,R2 ;SAVE R2 FOR TYPEOUT 
014236 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
Spt oe 021244 021004 !<20*12> :PORT4 LINE UNIT REG 12 
014242 016104 000004 MOV 4(R1),R4 ;PUT ‘‘FOUND'' IN R 
O1eges 062706 000017 BIC = =— #17, R4 ;CLEAR UNKNOWN BITS 
014252 005005 CLR R5 sPUT “‘EXPECTED’’ IN RS 
014254 120504 CMPB R5,R4 ;ARE ALL BITS CLEARED? 
014256 001401 BEQ 1$ ;BR IF YES 
Spe +e 104002 ERROR 2 sERROR IN LU 12 
01426 1$: 
peeekeeeeeetarererereeeeeene TEST 5 eaeaeecneecancareeeenenener 
;*MODEM CONTROL REGISTER READ/ONLY TEST 
:*D0 A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 
>*BITS ARE IN THE CORRECT STATE 
5 RRORERAAAASAA TARA AE TERAAAAAAAARAAEARAARERARERARARAAARER RAE 
: WEST 3 
s  ReReneneeeeeeeeeeeeeeeeeedrereeeeeennaneeeeeeneneeeeeeeneeneees 
0°4262 000004 TST3: SCOPE 
oi 012737 000003 001202 MOV #3, S1STNM ; LOAD THE NO. OF THIS TEST 
14272 012737 014334 001442 MOV #TST4 NEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
14 104410 MSTCLR ;MASTER CLEAR KMC11 
14 012702 000013 MOV #13,R2 SAVE R2 FOR TYPEOUT 
4 Hp Sf f ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
14310 021264 ) 021004 !<20*13> PORTS LINE UNIT REG 13 
1431 16104 000004 MOV 4(R1) ,R4 :PUT ‘‘FOUND'' IN R4 
14 18 106 000213 BIC #213,R4 ;CLEAR UNKNOWN BITS 
14 12705 000100 MOV #100,R5 ;PUT ‘EXPECTED’ IN R5 
14326 120504 CMPB sR, RG ARE RING, DTR, AND MODEM READY SET? 
Ore 1401 BEQ 1$ BR IF YES 
14332 104002 ERROR 2 sERROR IN LU 13 
0143 1$: 





ee ee 






| CZ7KCE WMACY11 30A(1052) OB8-JUL-80 08:24 PAGE 64 
| CZKCE.P11 08-JUL-80 08:24 LINE UNIT READ/ONLY TESTS SEQ 0063 
54 
see¢ seeeeeaeeeerecererereeeceeee TEST & ceneneeeeerereerercecereres 
| 56 S*MAINTENANCE REGISTER READ/ONLY TEST 
5 7*D0 A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 
58 :*BITS ARE IN THE CORRECT STATE | 
59 PTT TT TETITT TITTIES TTTTTTT LITT LITTTT ITLL TTT TTT TTT TTTTt tte 
; TEST 4 
jpnennanneetanonnnentnedennceneenousansnensennsetacenessesesesers 
pet 000004 TST4 SCOPE 
014 012737 000004 001202 MOV #4, STSTNA ; LOAD THE NO. OF THIS TEST 
014344 012737 014426 0601442 MOV #TSTS,NEXT ; POINT TO THE START OF NEXT TEST. 
3R1 CONTAINS BASE KMC11 ADDRESS 
Ore aer 104410 MSTCLR “MASTER CLEAR KMC11 
143554 012702 000017 Seer #17,R2 sSAVE R2 FOR TYPEOUT 
014 104412 :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
014362 021364 021006:<20s17> :PORT4 LINE UNIT REG 17 
014 016104 000004 4(R1) ,R4 :PUT '‘FOUND'' IN R4 
Spt th rf the: 000206 BIC #206 ,R4 ;CLEAR UNKNOWN BITS 
014574 012705 000051 MOV #51,R5 :PUT ‘EXPECTED’ IN RS 
Spee + 032737 020000 002050 BIT #B1T13, STATI 31S LU AN M8202 OR M8201? 
Pee 001404 BEQ +12 ;BR IF M8201 
014410 042704 000040 BIC #40,R4 sMASK OFF SI BIT IF M8202 
014414 042705 000040 BIC #B1T5,R5 ;S1 BIT 1S UNKNOWN ON AN M8202 
014420 120504 CMPB sR, RG SARE SI AND ICIR SET? 
014422 001401 BEQ 1$ : IF YES 
Meese 104002 ERROR 2 ERROR IN LU 17 
14426 1$: 
seeeeaaeeereeeecerereneanene TEST 5 seeacaaneeeeeaeanerereneene 
S*LINE UNIT REGISTER WRITE/READ TEST 
:#SET BITS IN LU REGISTER 12, VERIFY IT IS SET 
: CLEAR BITS IN LU REGISTER 12, VERIFY IT IS CLEAR 
eReRHETEHAEREREAERERAERERAAARRAERERERAHAERTEAE RA REE RETR EERE 
: TEST 5 
« seecuseseadheneesneeiencenecsucnacoseetheedneesdecceeoneaneenes 
144 000004 TST5: SCOPE 
144 012737 000005 001202 MOV #5. STSTNM ; LOAD THE NO. OF THIS TEST 
144 Bi stee 014566 001442 MOV #TST6,NEXT > POINT TO THE START OF NEXT TEST. 
14444 012737 014460 001444 MOV #1%,LOCK ADDRESS FOR LOCK ON DATA. 
sR1 CONTAINS BASE KMC11 ADDRESS 
Att 104410 MSTCLR “MASTER CLEAR KMC1 
14454 Orgies 000012 MOV #12,R2 sSAVE REGISTER ADDRESS FOR TYPEOUT 
14460 012761 000040 000004 1$: MOV #40,4(R1) :LOAD PORT4 
144 104412 ROMCLK sNEXT WORD AA ae ROMCLK PC=5304 
144 12211 122112 SET BITS I 
14472 10441 ROMCLK :NEXT woRD. Is” INSTRUCTION, ROMCLK PC=5304 
1447 oe) 4 021245 READ LU-12 
1447 2 ? 000040 MOV #40,R5 :PUT e XPECTED* IN R5 
14 116104 000005 MOVB  5(R1),R4 ‘FOUND’ IN R4 
14 042704 000337 BIC #337 ,R4 SHEAR ANTED BITS 
1451 120504 CMPB R5,R4 :18 BITS SET? 





CZKCE =MACY11 350A(1052) O08-JUL-80 08:24 PAGE 65 
CZKCE .P11 08-JUL-80 08:24 LINE UNIT WRITE/READ TESTS SEQ 0064 
3110 014514 001401 BEG es :BR IF YES 
111 014516 104003 ERROR 35 sERROR, BIT 5 IS NOT SET 
BY 13 193383 2$: SCOP1 SCOPE SUBTEST (SW09=1) 
11 14 012737 014530 001444 MOV #3$ LOCK :NEW SCOP1 
114 014330 005061 000004 3$: = CLR RT) LOAD PORTS 
115 0145 10441 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
19 0145 12211 122112 sCLEAR BIT 5 IN LU-12 
14 14540 10441 K sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
11 $ 14542 021 cae 021245 sREAD LU-12 
11 14544 005005 CLR R5 sPUT “"EXPECTED’’ IN R5 
120 O1ees HA 2 000005 MOVB 5(R1) ,R4 ;PUT ‘'FOUND'’ IN R4 
121 014552 042704 000337 BIC #337 ,R4 ;CLEAR UNWANTED BITS 
1 é Spee: 120504 CMPB = R'5,, R4 :1S BITS CLEAR? 
1 Pk +e 001401 4$ ;BR IF YES 
124 014562 104003 ERROR 3 sERROR, BITS IS NOT CLEAR 
136 014564 104405 4$: SCOP SCOPE SUBTEST (SWO9=1) 
28 peeanakeeeeeeterereeeeeeeane TEST § tetanerenaentanareeneneenee 


**LINE UNIT REGISTER WRITE/READ TEST 
-*SET BIT1 IN LU REGISTER 17, VERIFY IT IS SET 
:*CLEAR BIT] IN LU REGISTER 17, VERIFY IT IS CLEAR 


£ RRA AREREE AAAS EAAAEE EAA AARAARARAAARERARERAERAAEAEKEEREREE 


BISAEUN SS 
~ 
mn 
w 
~ 
a 


1 

1 + eeeeweneeeces= 

1 5 AAS AAAAAAAAAAAAAE EASE AEA AEA AAAERERERAEAAAARAREAAAEAARAEAREERE 

1 9145 909004 TST6: SCOPE 

1 145 12737 000006 001202 MOV #6, $TSTNM ; LOAD THE NO. OF THIS TEST 

139 014576 012737 014726 001442 MOV @TST7, NEXT ; POINT TO THE START OF NEXT TEST. 
140 014604 012737 014620 001444 MOV #1$,LOCK : ADDRESS FOR LOCK ON DATA. 

141 :R1 CONTAINS BASE KMC11 ADDRESS 

148 014612 104410 MSTCLR sMASTER CLEAR KMC11 

143 014614 012702 000017 MOV #17,R2 :SAVE REGISTER ADDRESS FOR TYPEOUT 

144 0146 0 012761 000001 000004 1S: MOV #1,4(R1) =LOAD PORTS 

145 0146 194412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
146 0146 122117 122117 >SET BIT! IN LU-17 

147 014632 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
148 146 021363 021365 sREAD LU=-17 

149 014 012705 000001 MOV #1,R5 ;PUT “EXPECTED'' IN RS 

130 14 116104 000005 5(R1),R4 *PUT ‘FOUND’ IN R4 

151 61 042704 000376 BIC =CLEAR UNWANTED BITS 

13@ 1465 1205 CMPB eR, R4 :1S BIT1 SET? 

1 14 1401 BEQ 2$ “BR IF YES 

154 014 104003 ERROR 3 “ERROR, BIT 1 IS NOT SET 

155 014 104405 2$: SCOP1 “SCOPE SUBTEST (SWO9=1) 

1 1 0127 7 014670 001444 MOV #3$,LOCK “NEW SCOP1 

1 166 005061 000004 3$: CLR 4(R1) :LOAD PORT4 

1 8 14674 1 aig ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1 1467 12211 122117 “CLEAR BIT 1 IN LU-17 

160 014 1 aie ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
161 014 136 021365 READ LU-17 

169 14 5005 CLR R5 ;PUT EXPECTED’ IN RS 

163 014 11 104 000005 MOVB  5(R1),R4 >PUT ‘FOUND’ IN R 

164 014712 042704 000376 BIC #376, R4 *CLEAR UNWANTED BITS 

165 014716 120504 CMPB RS, RG -1$ BIT? CLEAR? 
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CE MACY11 30A(1052) O8-JUL-80 08:24 PAGE 66 
CE.P11 08-JUL-80 08:24 LINE UNIT WRITE/READ TESTS SEQ 0065 
196 014720 001401 BEQ 4$ BR IF YES 
16 dpe 2 104003 ERROR 3 sERROR, BIT! IS NOT CLEAR 
189 14726 104405 4$: SCOP1 :SCOPE SUBTEST (SW09=1) 
0 









EA seeaeaeaeereeeteteeereeerane TEST 7 seaneeeeenerenaeeerenereres 
317 **@LINE UNIT REGISTER WRITE/READ TEST 
17 -*FLOAT A 1 THROUGH LINE UNIT REGISTER 13 
174 :*FLOAT A 0 THROUGH LINE UNIT REGISTER 13 
175 SSAA AAAAAAAAAAE EEA EAEAAEAEEAAEREREREKERAREEARRERAKEKEEKEEEES 
17 
177 ; TEST 7 
3135 PUT TITITITITTTITITITITTT TIT TLiTiTTTLTiTLiTiTiiiiiiiriiiii iii 
3180 014726 000004 1817: SCOPE 
181 0147 127 7 000007 001202 MOV #7,STSTNM : LOAD THE NO. OF THIS TEST 
1 é 014756 012737 015136 001442 MOV #TST10,NEXT : POINT TO THE START OF NEXT TEST. 
1 16744 012737 014764 001444 MOV #64$,LOCK : ADDRESS FOR LOCK ON DATA. 
1 :R1 CONTAINS BASE KMC11 ADDRESS 
185 014752 1046410 MSTCLR ;MASTER CLEAR KMC11 
186 014754 012702 000013 MOV #13,R2 :SAVE REGISTER ADDRESS FOR TYPEOUT 
Hs Spe 04 012700 000001 ii MOV #1,R0 sSTART WITH BIT VJ 
189 14764 010061 000004 MOV RO,4(R1) :PUT PATTERN INTO PORTS 
190 014770 042761 000257 000004 BIC #257 ,4(R1) “CLEAR UNWANTED BITS 
191 014776 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
198 15000 122113 122100!13 :MOV DATA TO IBUS REGISTER 13 
1 13 j 412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1 1 126 21005 !<13*20> :READ FROM IBUS REGISTER {3 
195 015 10005 MOV RO,RS :PUT EXPECTED IN RS 
196 15 2705 000257 BIC #257,R5 “CLEAR UNWANTED BITS 
197 015014 116104 000005 MOVB 5(R1),R4 :PUT ‘FOUND’ INTO R4 
198 15020 042704 000257 BIC #257 ,R4 :CLEAR UNWANTED BITS 
1 15024 120504 CMPB RS RG :DATA CORRECT? 
13 1401 BEQ 65$ *BR IF YES 
1 01 04003 ERROR 3 ERROR 
1 1 104405 65$: SCOP1 > §w09=1? 
1 241 CLC :CLEAR CARRY 
1 1 100 ROLB =—s- RO :SHIFT BIT IN RO 
5 01 1351 64$ :IF RO=0 THEN DONE 
1 12737 015056 001444 MOV #67$,L0CK :NEW SCOP1 
1 12700 000001 v #1,R6 >START WITH BIT 0 
! 34 1 698: COM RO *CHANGE TO FLOATING ZERO 
10 015 36 010068 000004 MOV RO,4(R1) :PUT PATTERN INTO PORTS 
11 (01 61 000257 000004 BIC #257,4(R1) “CLEAR UNWANTED SITS 
1 15070 1 aig ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
13 015072 12211 122100!13 :MOV DATA TO IBUS REGISTER 13 
14 015074 1 412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK °C=5304 
15 01 126 21005 !<13#20> :READ FROM IBUS REGISTER 13 
16 1 10005 MOV RO.R >PUT EXPECTED IN R5 
17 0151 § 000257 BIC #257,R5 :CLEAR UNWANTED BITS 
18 151 1 104 000005 MOVB 5(R1),R4 :PUT ‘FOUND’ INTO R4 
19 015112 042704 000257 BIC #257. R4 “CLEAR UNWANTED BITS 
20 15116 120504 CMPB RS _ RG “DATA CORRECT? 
1 015120 001401 BEOQ 68$ “BR IF YES 
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KCE MACY11 pe A ws 08:26 PAGE 67 
KCE.P11 08-J LINE UNIT WRITE/READ TESTS 


15122 1 ERROR 3 >ERROR 

15126 1 68%: ScOP1 SWO9=1? 

151 100 COM RO >CHANGE TO FLOATING 1 
151 41 cic >CLEAR CARRY 

15 9 ROLB RO 

15 


:SHIFT BIT IN RO 
BNE 69% IF RO=0 THEN DONE 


seeeeeeeerereeeeeceeerereree TEST 19 eeeeeceneeereeerereneeerere 
s*LINE UNIT REGISTER WRITE/READ TEST 

;*FLOAT A 1 THROUGH LINE UNIT REGISTER 14 

;*FLOAT A 0 THROUGH LINE UNIT REGISTER 14 


SS SSSA ASSESSES SAAAAAAAAAAAAAAARAARCAARAAHRERERERERAARATRAREREES 


MEUM O O@~O Vl uiry 




















; TEST 10 
s  deeeeedeeeneeterereeeetereeeceeeeeeeeneeeeeenereneeeeeereeeeee 
15136 6 1$110: SCOPE 
40 015140 012737 10 001202 MOV #10,STSTNM ; LOAD THE NO. OF THIS TEST 
41 015146 Ie 7 State: 001442 MOV a1sti} NEXT : POINT TO THE START OF NEXT TEST. 
42 015156 012737 015174 001464 MOV #64%,LOCK ADDRESS FOR LOCK ON DATA 
4 RI CONTAINS BASE KMC11 ADDRESS 
44 015162 1046410 MSTCLR :MASTER CLEAR KMC11 
45 01 164 012702 000014 MOV #14,R2 > SAVE REGISTER ADDRESS FOR TYPEOUT 
4 170 12700 000001 oan MOV #1,R0 SSTART WITH BIT 0 
48 015174 010061 000004 RO,4(R1) :PUT PATTERN INTO PORTS 
1 104412 als :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1 122114 144 :mOV DATA TO IBUS REGISTER 
1 1 412 T WORD IS INSTRUCTION, ROMCLK PC=5304 
1 0 130 21005! <14s20> READ FROM IBUS REGISTER 14 
15210 010005 RO,RS :PUT EXPECTED IN R5 
15212 116104 000005 5(R1) RG :PUT "FOUND INTO R4 
15216 1205 R5,R4 :DATA CORRECT? 
1 401 BEQ 65$ “BR IF YES 
: ; ERROR 3 ERR 
1 1044 65$: SCOP >S$w09=1? 
1 7h CLC :CLEAR CAR 
1 00 ROLB = RO :SHIFT BIT IN RO 
1 : BNE 645 “IF RO=0 THEN DONE 
1 015250 MOV #67$,L0CK “NEW SCOP1 
1 12700 000001 MOV #1,R6 *START WITH BIT 0 
! 1 698: COM RO >CHANGE TO FLOATING ZERO 
1 010061 000004 MOV RO,4(R1) ;PUT PATTERN INTO PORTS 
+ 15254 104412 ROMCLK T WORD IS INST RUCTION, ROMCLK PC=5304 
268 01 122114 122100!14 :MOV DATA TO IBUS REGIST 
269 01 10441 ;NEX T WORD 1S INST RUCTION. ROMCLK PC=5304 
270 01 1 21005! <14%°0> >READ FROM IBUS REGISTER 14 
$ 1 RO,RS PUT EXPECTED IN R5 
$ ; 1 1 000005 move 5(R1) .R4 >PUT ““FOUND' INT 
$ 1 1205 RS,R4 “DATA CORRECT? 
$374 015274 001401 68$ “BR IF YES 
275 015276 104003 ERROR 3 - ERROR 
276 1 104405 68$: SCOP1 = $w09=1? 
27 1 005100 COM RO -CHANGE TO FLOATING 1 

















CE MACY11 50A(1 52) O8-JUL-80 08:24 PAGE 68 
CE.P11 08-JUL 08:24 LINE UNIT WRITE/READ TESTS 
78 0 000241 cLC sCLEAR CARRY 
79 e 106100 ROLB RO :SHIFT BIT IN RO 
a 001356 BNE 69$ :IF RO=0 THEN DONE 
fi seeaeeaeeeeetereteteeeeeeaes TEST 1] xateneereenereeeererereeere 
ee :*SWITCH PAC TEST 
5 S*THIS TEST READS SWITCH PAC#1 
oe >*THIS SWITCH PAC CONTAINS THE DDCMP LINE # 
8 £ RARER AEA SERA E TERETE AEA AHAAAAARARERERAAAAAEAEAARERERARRRE EEE 
83 s Vest 11 
94 PETITIITI LILI LI LITT LLT LITT Li Titi iit iit 
og + 04 1ST11: SCOPE 
© 15 Ee i 000011 001202 MOV #11,STSTNM ; LOAD ai: NO. OF THIS TEST 
94 015 012737 015354 001442 MOV #TST12, NEXT POINT TO THE START OF NEXT TEST. 
95 ;R1 CONTAINS BASE KMC11 ADDRESS 
oS 015 104410 MSTCLR :MASTER CLEAR KMC11 
97 015 104412 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
38 15 021324 021324 io es bade 
15 BE 0004 Vv 4(R1),R4 T "FOUN R4 
00 015 113705 002052 MOVB STAT2,R5 ‘PUT "EXPECTED IN R5 
015346 120504 CMPB R5,R4 :SW OK? 
Ett 001401 BEQ 1$ >BR IF YES 
0153552 104031 ERROR 31 ERROR, SWITCH PAC READ ERROR 
015354 1$: 
6 
07 seeeeeeeeeeeererteetareeeaaese TEST 12 seeaeaakeeeeeeeeeeeeeneeeee 
08 >*SWITCH PAC TEST 
09 :*THIS TEST READS SWITCH PAC#2 
10 >*THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD 
11 £ RRA RAAAA AREA REE AAA ARATE AREA RARER AAA ARETE RARE TEE 
1 
3 s- TeSt..3 
15 PTITITITITI ITI TTT ITITITITITTTT TILT iiiiiiiiiiiiTiiii tii 
16 15354 000004 TST12: SCOPE 
1 15356 ae 37 000012 001202 MOV #12,STSTNM ; one a NO. OF THIS TEST 
+ 15 0127357 015416 001442 MOV #TST13, NEXT POINT TO THE START OF NEXT TEST. 
1 ;R1 CONTAINS BASE KMC11 ADDRESS 
Or aate \Reess MSTCLR MASTER CLEAR KMC11 
1 015374 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
@ 015376 021544 021344 :PORT4 LUI6 
15400 16108 000004 MOV 4(R1) ,R4 ;PUT ‘"FOUND’’ IN R4 
4 HF rtp 113705 002053 MOVB STAT2¢1,R5 :PUT EXPECTED’ IN R5 
5 01 rh 120504 CMPB . SW OK? 
1541 es BEQ 1$ >BR IF YES 
aacte 104031 1s ERROR 31 “ERROR, SWITCH PAC READ ERROR 


peeeraneeteeererereececeeeae TEST 135 seaeececarenceraeeeeretanes 


:*LINE UNIT CLOCK TEST 
s*THIS TEST VERIFYS THAT THE LU INTERNAL CLOCK 


aG— 
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MACY11 30A(1052) O8-JUL-80 08:24 PAGE 69 
P11 08-JUL-80 08:24 LINE UNIT WRITE/READ TESTS SEQ 9068 


>*(BIT 1 IN LU-17) IS WORKING 


_ S SSSA SESAATAAAAAAARELAAARAAARARAEARAERTHAARERERERAARARARARAEREREREEEE 


¢ 
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rer 


CZK 
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Www 
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3 5 + eeteeeeeeeeneereeeeeeeeeeeeeeeteeeeeeeneneneneneteeteeeeneeeees 
0 015416 TST13: SCOPE 
1 0154620 012737 000013 001202 MOV #13, STSTNM ; LOAD THE NO. OF THIS TEST 
¢ 015426 012737 015516 001442 MOV #TST14,NEXT ; POINT TO THE START OF NEXT TEST. 
5 :R1 CONTAINS BASE KMC11 ADDRESS 
; 4 015434 104410 MSTCLR s>MASTER CLEAR KMC11 
45 015436 005037 011234 CLR TEMP >PREPARE FOR DELAY 
Ma Or eees 1$. 
te 015442 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
; 8 015444 {Be 021364 ;PORT4 LU-17 
549 015446 032761 000002 000004 BIT #2,4(81) ;1S CLOCK BIT SET? 
$529 015454 001004 BNE 2$ ;BR IF YES 
51 Sake Ba gse 011234 INC TEMP ; DELAY 
HL 015462 001567 BNE 1$ ;DELAY FINISHED? 
3535 015464 104004 ERROR 4 sERROR BIT IS STUCK CLEAR 
$20 O15679 005037 011234 ¢: CLR TEMP ;PREPARE FOR DELAY 
329 015472 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
357 015474 {te 021364 sPORT4 LU=17 
358 015476 032761 000002 000004 BIT #2,4(R1) ;1S CLOCK BIT CLEAR? 
59 015504 001404 BEQ 4$ :BR IF YES 
015506 005237 011234 INC TEMP : Y 
1 SEES ites Hf BNE 3$ ;BR_ IF DELAY NOT DONE 
¢ 15514 104004 ERROR 4 sERROR BIT IS STUCK SET 
365 015516 4$: 
565 
Sac peeenkerereeeereeereeneeeenee TEST 14 eatankacaeaeeeeeeeeeeeeeene 
367 :*OQUT DATA SILO TEST 
368 ;*SET SOM AND LOAD OUT DATA SILO 
9 =; ®VERIFY THAT OCOR SET, INDICATING THAT THE 
0 :*CHARACTER IS AT THE BOTTOM OF THE OUT SILO 
3 4 SORA RAETERERCERAA AAA ARAARAARE RAE AAEAAEAEAAEAAAAAEAE REAR EEE 
78 s TEST 14 
$e MPITIITITITITIT TIT TT TTI Li Titi Titi Titi Litt Litt ti 
38 SEES B0g00% TST14: SCOPE 
77 ~«©015520 012737 000014 001202 MOV #14, STSTNM ; LOAD THE NO. OF THIS TEST 
Hh 015526 012737 015616 001442 MOV #TST15, NEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
133 104410 MSTCLR sMASTER CLEAR KMC11 
1 015 012711 004000 MOV #B1T11,(R1) SET LINE UNIT LOOP 
15542 012761 000001 000004 MOV #1,4(R1) ;LOAD PORT4 WITH BITO 
15550 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1555 ee 122111 ; SOM 
5 4 554 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=53504 
15556 122110 122110 ;LOAD OUT DATA SILO 
SEE +04 104414 000002 TIMER, 2 :WAIT FOR OCOR 
13388 A 000017 MOV #17,R2 ;SAVE ADDRESS FOR TYPEOUT 
0155 10441 ROMCLK ;NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
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MACY11 30A(1052) O8-JUL-80 08:24 PAGE 70 
1 08-JUL-80 08:24 BASIC TRANSMITTER TESTS SEQ 0069 
015572 021364 021364 :PORT4 LU 17 
015574 0161 009004 MOV 4(R1) RG :PuT ‘FOUND’ IN R4 
015600 g 000357 BIC #357 RS :CLEAR UNWANTED BITS 
015606 012705 000020 MOV #20,R5 :PUT “‘EXPECTED’’ IN RS 
pais 120504 C(MPB R5,R4 :1S OCOR SET? 
01561 001401 BEQ 1$ -BR IF YES 
015614 194005 ERROR 5 
015616 1$: 
SERaERaeeReeeeeeeeeetereneer TEST 15 RHERARARARAAARAAEKERERREEEAERERE 
z*DDCMP TEST OF RTS AND OUT ACTIVE 
:*SET SOM AND LOAD OUT DATA SILO 
s*SINGLE STEP 2 DATA CLOCKS, VERIFY 
:*THAT RTS AND ACTIVE ARE SET 
FRA AAE RASA AAAA TAKE T ERA EEAHARAAAAARHAAAEEAAEREKEARART RRA ES 
s Test 15 
PPETITIIIT ILI TITITI TTT I TILT Li Titi iii iiititiiiriTiiitttiee 
015616 000004 TST15: SCOPE 
015620 012737 000015 001202 MOV #15,STSTNM ; LOAD THE NO. OF THIS TEST 
015626 012737 015754 001442 MOV #TSTI6,NEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
015634 104410 MSTCLR ;MASTER CLEAR KMC11 
0156 012711 004006 MOV #B1T11,(R1) :SET LINE UNIT LOOP 
015642 012761 000001 000004 MOV #1,4(R1) :LOAD PORT4 WITH BITO 
1363 19oti¢ ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1 122111 122111 :SET SOM 
15654 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
15656 122110 122110 ;LOAD OUT DATA SILO 
15660 004737 030260 JSR PC ,OCOR sWAIT FOR OCOR 
1 ¢ 2 104413 000002 DATACLK, 2 :CLOCK DATA FOUR TIMES 
15670 012702 000011 MOV #11,R2 ;SAVE ADDRESS FOR TYPEOUT 
15674 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1 $76 021224 021224 :PORT4 LU 11 
1 44 16104 000004 MOV 4(R1) ,R4 :PUT ‘‘FOUND’’ IN R4 
137 704 000257 BIC #257 ,R4 :CLEAR UNWANTED BITS 
15710 012705 000120 MOV #120,R5 :PUT ““EXPECTED’’ IN RS 
15714 120504 CMPB R5,R4 ;18 ACTIVE SET? 
1571 1401 BEQ 1$ sBR IF YES 
13 104005 ‘a ERROR 5 
135 $ 012702 000013 MOV #13,R2 ;SAVE ADDRESS FOR TYPEOUT 
137 Hh ee ROMCLK sNEXT WORD fs INSTRUCTION, ROMCLK PC=5304 
157 8 1264 021264 :PORT4 LU 1 
157 sigs 000004 MOV 4(R1) RG PUT ERPECTED IN R4 
157 Boe? 000337 BIC #337 ,R4 :CLEAR UNWANTED BITS 
1574 12705 000040 MOV #BiT5 R85 :PUT ““EXPECTED’’ IN RS, RTS SHOULD BE SET 
13788 120504 CMPB R5,R4 -1S RTS OK? 
Ot ate 1401 BEQ 23 -BR IF YES 
15752 104005 ERROR 5 :RTS ERROR 
015754 2$: 


peeeeeeeecereterereneecenaene TEST 16 steteceeneceraneeaaeereanens 
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P11 OF -JUL-80 08:24 BASIC TRANSMITTER TESTS SEQ 0070 
6 s*TEST OF OUT CLEAR 
7 3*SET SOM AND LOAD OUT DATA SILO 
8 >*SINGLE STEP DATA CLOCK, SET OUT CLEAR 
9 7*VERIFY THAT OCOR,RTS, AND ACTIVE ARE CLEARED 
0 F SRA SAAAAAAEAAAA SA AAAEAEARARAAHERARAAEAHARAEKRARAAKRAAERKERE EEE Ee 
1 
; ; TEST 16 
4 PITTI IITITITI ITI TILT T ITIL TTT TTT tiiiTi ttt tt tte 
5 015754 000004 1$T16: SCOPE 
$ 015756 012737 0600016 001202 MOV #16, STSTNM : LOAD THE NO. OF THIS TEST 
015764 012737 016152 001442 MOV #1ST17, NEXT ; POINT TO THE START OF NEXT TEST. 
8 ;R1 CONTAINS BASE KMC11 ADDRESS 
9 015772 106410 MSTCLR :;MASTER CLEAR KMC11 
015774 ATTA. 004000 MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
016000 012761 000001 000004 MOV #1,4(R1) :LOAD PORT4 WITH BITO 
Bees 104412 ROMCLK 7NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
01601 122111 122111 :SET SOM 
016012 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016014 122110 122110 :LOAD OUT DATA SILO 
be dt 004737 030260 JSR PC,OCOR :WAIT FOR OCOR 
16022 104413 000002 DATACLK, :CLOCK DATA FOUR TIMES 
016026 012761 000200 000004 MOV #B1T7,4(R1) :SET BIT7 IN PORT4 
9 0160 1046412 ROMCLK :NEXT WORD IS iNSTRUCTION, ROMCLK PC=5304 
0 0160 gett 122111 :SET OUT CLEAR 
bbe'eng 104413 000001 DATACLK, 1 -GIVE A TICK TO CLEAR RTS 
16044 012702 000017 MOV #17,R2 ;SAVE ADDRESS FOR TYPEOUT 
816886 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1 021364 021364 :PORT4 LU 1 
016054 016104 000004 MOV 4(R1),R4 :PUT "‘FOUND'' IN R4 
016060 042704 000357 BIC #357,R4 :CLEAR UNWANTED BITS 
16064 005005 CLR R5 PUT ‘EXPECTED’ IN RS 
1enee 120504 CMPBR R5,R4 :1S OCOR CLEARED? 
160 001401 BEQ 1$ -BR IF YES 
onre 104005 + ERROR 
16074 012702 000013 MOV #13,R2 ;SAVE ADDRESS FOR TYPEOUT 
Bree 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
161 021264 021264 :PORT4 LU 13 
161 4 1 000004 MOV 4(R1) RS PUT EXPECTED IN R4 
16110 704 000337 BIC #337,R4 ;CLEAR UNWANTED BITS 
16114 0 005 CLR R5 :PUT ‘‘EXPECTED'' IN RS, RTS SHOULD BE CLEARED 
OiSte 120504 CMPB R5,R4 :1S RTS OK? 
161 001401 BEQ 2$ ;BR IF YES 
ag é 104005 a ERROR 5 RTS ERROR 
16124 AHA 000011 MOV #11,R2 ;SAVE ADDRESS FOR TYPEOUT 
161 10441 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
16132 021224 021224 ;PORT4 LUI1 
161 16104 000004 MOV 4(n1),R4 :PUT ‘FOUND’ IN R4 
16140 012705 000020 MOV #BIT4,R5 :ONLY OUT READY SHOULD BE SET 
16144 120504 CMPB R5,R4 :1S ACTIVE CLEAR? 
Bretes 001401 BEQ 3$ :BR IF YES 
Bas 104005 " ERROR 5 :ERROR ACTIVE NOT CLEARED 
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000017 001202 
016334 001442 


004000 
030412 
000001 


000000 
030412 
000004 


030260 


000002 
000001 


030226 


030226 


000010 
000014 


000040 000004 


MOV #17,$TSTNM 


BASIC TRANSMITTER TESTS 


seeaeaaeeecaererererereesereee TEST 17 seeeteicerereeneeeereneeeee 
>*DDCMP TRANSMITTER TEST 

;*SINGLE CLOCK THE CHARACTER 0 

;*VERIFY EACH BIT POSITION AS IT 

:*PASSES THE BIT WINDOW (SI BIT) 

;*ON AN ERROR, 23 CONTAINS BIT POSITION OF FAILURE 


5 RRA A AERA E AEE E AE AEEHERAREAAEEAARAAHKEAARARAAAEAREAEEE EEE 


; TEST 17 


« 
gL SERRE AAAEAAAEEAAAEATAAEAEAAAAEARAARAARRARAEEARARAAARAAEEEREE RATE 


SCOPE 
; LOAD THE NO. OF THIS TEST 
; POINT TO THE START OF NEXT TEST. 


MOV #TST20,NEXT is 
:R1 CONTAINS BASE KMC11 ADDRESS 


MSTCLR sMASTER CLEAR KMC11 
MOV #B1T11,(R1) :SET LINE UNIT LOOP 
JSR PC ,OUTRDY sWAIT FOR OUT-READY 
MOV #1,4(R1) ;SET BITO IN PORTS 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122111 :SET SOM! 
MOV #0,R5 ;LOAD CHARACTER IN RS FOR TYPEOUT 
JSR PC ,OUTRDY sWAIT FOR OUT-READY 
MOV R5,4(R1) ;LOAD PORT4 WITH CHARACTER 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 ;LOAD OUT DATA 
JSR PC,OCOR sWAIT FOR OCOR TO SET 
CLR R3 :CLEAR BIT COUNTER 
MOV RS,R2 s;LOAD CHARACTER IN R2 
DATACLK, 2 :2 TICKS TO SET UP TRANSMITTER 
DATACLK, 1 ;SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
RORB R2 ;SHIFT NEXT SOFTWARE BIT IN TO CARRY 
BCC 2$ ;BR IF CARRY CLEAR 
JSR PC,GETSI :GET THE WINDOW 
BCS 3$ ;BR IF BIT IS A MARK 
ERROR 6 zERROR BIT WAS A SPACE 
Rt 3$ :CONTINE WITH TEST 
JSR PC,GETSI :GET THE WINDOW 
BCC 3$ :BR IF BIT IS A SPACE 
ERROR 6 sERROR BIT WAS A MARK 
INC R3 sNEXT BIT 
CMP #10,R5 sDONE YET? 
BNE 1$ 


-BR IF NO 

CLOCK TRANSMITTER 14 MORE TICKS 

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
264 :PORT4 LU-1 

iT SEIS ACR :RTS SROULD BE CLEAR NOW 


:BR IF YES 
ERROR 54 ;ERROR, RTS NOT CLEAR 


DATACLK, 14 
CLK 


-ehetererereeereeeeeeneneaene TEST 20 ceenteneecenececerecerereese 


“eDDCMP TRANSMITTER TEST 


ee en 


Z7KCE MACY11 30A(1052) OB8-JUL-B80 08:24 PAGE 73 
ZKCE.P11 O8-JUL-80 08:24 BASIC TRANSMITTER TESTS SEQ 0072 
3558 s*SINGLE CLOCK THE CHARACTER 125 
3559 :*VERIFY EACH BIT POSITION AS IT 
560 :*PASSES THE BIT WINDOW (SI BIT) 
561 7*O0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
208 F SSAA AASHA AAA ATAKA TAHA ATAKAREKEHRERAARKARRAKEReEeAH eee Reeeee 
6 
$564 TEST 20 
266 PUT ITTITITIIITTTT IIIT TTT TTTLITiTiTTTTi TTT titiiiiiiiiiiii Titi 
567 016 i 000004 TST20: SCOPE 
568 016 tte 000020 001202 MOV #20,$TSTNM ; LOAD THE NO. OF THIS TEST 
569 016344 012737 016516 001442 MOV #TST21, NEXT ; POINT TO THE START OF NEXT TEST. 
570 ;R1 CONTAINS BASE KMC11 ADDRESS 
571 016352 104410 MSTCLR ;MASTER CLEAR KMC11 
27¢ 016354 012711 004000 MOV #B1T11,(R1) :SET LINE UNIT LOOP 
5735 016 004737 030412 JSR PC ,OUTRDY ;WAIT FOR OUT-READY 
574 are 012761 000001 000004 MOV #1,4(R1) -SET BITO IN PORTS 
575 016372 1046412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
276 016374 122111 122111 :SET SOM! 
577 016376 012705 000125 MOV #125,R5 :LOAD CHARACTER IN RS FOR TYPEOUT 
578 016402 004737 030412 JSR PC ,OUTRDY sWAIT FOR OUT-READY 
579 0164 010561 000004 MOV R5,4(R1) ‘LOAD PORT4 WITH CHARACTER 
580 016412 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
+4 Sab 122110 122110 ;LOAD OUT DATA 
5 g 19738 004737 030260 JSR PC,OCOR :WAIT FOR OCOR TO SET 
58 ye 005003 CLR R3 ;CLEAR BIT COUNTER 
5 16424 01050 MOV R5,R2 :LOAD CHARACTER IN R2 
: 5 the $ 10441 00002 DATACLK, 2 :2 TICKS TO SET UP TRANSMITTER 
1 10441 00001 1$: DATACLK, 1 :SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
5 the Hs 94 RORB R2 :SHIFT NEXT SOFTWARE BIT IN TO CARRY 
5 1644 10 at BCC 2$ ;BR IF CARRY CLEAR 
569 016442 004737 030226 JSR PC ,GETSI :GET THE WINDOW 
16446 103406 BCS 3$ sBR IF BIT IS A MARK 
10038 104006 ERROR 6 :ERROR BIT WAS A SPACE 
1645 BR 3$ sCONTINE WITH TEST 
16454 004737 030226 2$: JSR PC,GETSI sGET THE WINDOW 
16460 103001 BCC 3$ :BR IF BIT IS A SPACE 
16462 104006 ERROR 6 :ERROR BIT WAS A MARK 
016464 3$: 
16464 SETS INC R3 :NEXT BIT 
1g088 2 gs 000010 CMP #10,R3 :DONE YET? 
164 1357 BNE 1$ :BR IF NO 
16474 104413 000014 DATACLK. 14 :CLOCK TRANSMITTER 14 MORE TICKS 
016500 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=53C4 
Ore ahe a Fe 021264 :PORT4 LU-13 
o163 032761 000040 000004 BIT #B1T5,4(R1) :RTS SROULD BE CLEAR NOW 
16512 001401 BEQ 4$ sBR IF YES 
016514 104034 ERROR 34 ERROR, RTS NOT CLEAR 
016516 4$: 


seateeeererereceeeereeaenaese TEST 2] seaneeetenereneseenacesetes 


:*DDCMP TRANSMITTER TEST 

;*SINGLE CLOCK THE CHARACTER 252 
:*VERIFY EACH BIT POSITION AS IT 
>*PASSES THE BIT WINDOW (SI BIT) 
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BASIC TRANSMITTER TESTS 


>*0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


FSSA AHAEA AAAS TEAAAHAARAEREAAAAAREAARRARARAE AKA RAE ES 


; TEST 21 


000021 
016700 


030260 


000002 
000001 


030226 


030226 


000010 
000014 


000040 000004 


001202 
001442 


000004 


, 
‘we RARAAAAARARAAARASLRREREAAASASALASLASESLELELESSLELESE SESE ESE SESE a aS 


TST21: 


1$: 


23: 


3$: 


4$: 


SCOPE 

MOV #21,$TSTNM ; LOAD THE NO. OF THIS TEST 

MOV #TST22 NEXT >: POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 

MSTCLR sMASTER CLEAR KMC11 

MOV #B1T11,(R1) :SET LINE UNIT LOOP 

JSR PC ,OUTRDY :WAIT FOR OUT-READY 

MOV #1,4(R1) :SET BITO IN PORTS 

ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

122111 :SET SOM! 

MOV #252,R5 ;LOAD CHARACTER IN RS FOR TYPEOUT 

JSR PC ,OUTRODY :WAIT FOR OUT-READY 

MOV RS,4(R1) LOAD PORT4 WITH CHARACTER 

ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

122110 :LOAD OUT DATA 

JSR PC,OCOR sWAIT FOR OCOR TO SE7 

CLR R3 :CLEAR BIT COUNTER 

MOV R5,R2 :LOAD CHARACTER IN R2 

DATACLK, 2 :2 TICKS TO SET UP TRANSMITTER 

DATACLK, 1 -SHIFT NEXT BIT IN THE WINDOW (SI BIT) 

RORB :-SHIFT NEXT SOFTWARE BIT IN TO CARRY 

BCC 2$ :BR IF CARRY CLEAR 

JSR PC,GETSI :GET THE WINDOW 

BCS 3$ :BR IF BIT IS A MARK 

ERROR 6 sERROR BIT WAS A SPACE 

BR 3$ :CONTINE WITH TEST 

JSR PC,GETS! sGET THE WINDOW 

BCC 3$ :BR IF BIT IS A SPACE 

ERROR 6 :ERROR BIT WAS A MARK 

INC R3 :NEXT BIT 

CMP #10,R3 :DONE YET? 

BNE 1$ ;BR IF NO 

DATACLK, 14 CLOCK TRANSMITTER 14 MORE TICKS 

ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

021264 *PORT4 LU- 

BIT #B1T5,4(R1) :RTS SAOULD BE CLEAR NOW 

BEQ 4% :BR IF Y 

ERROR 34 sERROR, RTS NOT CLEAR 


seeeeeeerererereeteeeeecenan TEST 22 reeenenenceeeeeeeceaceeeter 


:*DDCMP TRANSMITTER TEST 

s*SINGLE CLOCK THE CHARACTER 377 

;*VERIFY EACH BIT POSITION AS IT 
BIT WINDOW ) 


:*PAsSS 
: A 


ES THE 


Wi (SI BIT 
ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


FL ARSRAARAAAAAAAAAATAAAAAAARAAAAAARAARALAKARAARAEAS KAA AARe eee ES 


SEQ 0073 
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000022 


00120 
017062 001442 


004000 
030412 
000001 
000377 
030412 
000004 
030260 


000002 
000001 


030226 


030226 


000010 
000014 


000040 000004 


5 
BASIC TRANSMITTER TESTS 


; TEST 22 
+ eeeeeeteeeneneeereereteereeeeeeeeeteneereeeeeereneeeeentereeees 
TST22: SCOPE 
MOV #22, STS TNM ; LOAD THE NO. OF THIS TEST 
MOV #TST23,NEXT : POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR ;MASTER CLEAR KMC11 
MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
JSR PC ,OUTRDY :WAIT FOR OUT-READY 
MOV #1,4(R1) :SET BITO IN PORTS 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122111 >SET SOM! 
MOV #377,R5 :LOAD CHARACTER IN RS FOR TYPEOUT 
JSR PC ,OUTRDY :WAIT FOR OUT-READY 
MOV R5,4(R1) :LOAD PORT4 WITH CHARACTER 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 sLOAD OUT DATA 
JSR PC,OCOR :WAIT FOR OCOR TC SET 
CLR R3 :CLEAR BIT COUNTER 
V R5,R2 LOAD CHARACTER IN R2 
DATACLK, 2 :2 TICKS TO SET UP TRANSMITTER 
1$: DATACLK, 1 -SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
ORB :SHIFT NEXT SOFTWARE BIT IN TO CARRY 
BCC 2$ :BR IF CARRY CLEAR 
JSR PC,GETSI :GET THE WINDOW 
BCS 3$ :BR IF BIT IS A MARK 
ERROR -ERROR BIT WAS A SPACE 
BR $ :CONTINE WITH TEST 
2$: JSR PC,GETSI :GET THE WINDOW 
BCC 3$ :BR IF BIT IS A SPACE 
-. ERROR 6 sERROR BIT WAS A MARK 
INC R3 :NEXT BIT 
CMP #10,R3 :DONE YET? 
BNE 1$ :BR IF NO 
DATACLK, 14 CLOCK TRANSMITTER 14 MORE YiCKS 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021264 :PORT4 LU-13 
BIT #B1T5,4(R1) RTS SROULD BE CLEAR NOW 
BEQ 4% : F YES 
re ERROR 34 sERROR, RTS NOT CLEAR 


peearateeerecesaterereranene TEST 25 seteeerererenecaareraeerere 
:*DDCMP TRANSMITTER TEST 

s*SINGLE CLOCK A BINARY COUNT PATTERN 

s*VERIFY EACH BIT POSITION AS IT 

;*PASSES THE BIT WINDOW (SI BIT) 
;*0N AN ERROR, R35 CONTAINS BIT POSITION OF FAILURE 
:*AND R5 CONTAINS THE CHARACTER THAT FAILED 


FS TARARAAASAA AAT AAATA AAA AARAARAAARAERALATAAAREREAEHEAERAeAAAeAAREe RES 


; TEST 23 
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SEQ 0075 


© SESS SESEeEAAASeCAAAAA ATA KATH eA eeeeeaeaeeeeeeaeaaeeeeeeeeeeeeeeeese 


1$123: SCOPE 
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000023 001202 MOV #23, STSTNM ; LOAD THE NO. OF THIS TEST 
017270 001442 MOV #TST24 NEXT ; POINT TO THE START CF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
sMASTER CLEAR KMC11 
004000 #B1T11,(R1) INE UNIT LOOP 
R3 TAINS BIT COUNT 
RG 3R4 CONTAINS CHAR TO BE LOADED IN SILO 
RS CONTAINS CHARACTER CURRENTLY BEING SHIFTED QuT 
030412 PC ,OUTRDY sWAIT FOR OUT-READY 
1 #1,4(R1) :SET BITO IN PORTS 
at oan IS INSTRUCTION, ROMCLK PC=5304 
030412 PC ,QUTRDY ;WAIT FOR OUT-READY 
00004 R4 ,4(R1) ;LOAD PORT4 WITH CHARACTER 
XT oar IS INSTRUCTION, ROMCLK PC=5304 
RG EXT CHARACTER 
030412 PC ,OUTRDY sWAIT FOR OUT-READY 
000904 R4,4(R1) ;LOAD PORT4 WITH CHARACTER 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
D OUT DATA 
030260 PC ,OCOR sWAIT FOR OCOR TO SET 
000002 2 :2 TICKS TO SET UP TRANSMITTER 
4$: 3 E IT COUNTER 
R5,R2 sLOAD CHARACTER IN R2 
000001 1$: 1 sSHIFT NEXT BIT IN THE WINDOW (SI BIT) 
2 sSHIFT NEXT SOFTWARE BIT IN TO CARRY 
2$ BR IF CARRY CLEAR 
030226 le E eo 
6 sERROR BIT WAS A SPACE 
3$ ITH 
030226 23: PC,GETSI IND 
3$ 
6 
3$: 
R3 
000010 #10,R3 
1$ F NO 
R4 CHARA 
030412 PC ,OUTRDY ;WAIT FOR OUT-READ 
000004 R4,4(R1) sLOAD PORTS WITH CHARACTER 
IS INSTRUCTION, ROMCLK PC=5504 
OUT DATA 
RS sNEXT CHARACTER 
000400 > ial sDONE YET? 
S$: 


-eeeeeeeeererteresecaeaececen TEST 24 seeeeeeceneeneaaaeeeeeerens 


:*DDCMP STRIP SYNC TEST 
SET LU LOO 
“VERIFY THA 


P, SING 
T IN AC 


LE STEP 5 SYNCS, 
TIVE DOES NOT SET 
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000025 
017446 
004000 
000012 
030276 
000064 


000004 
000277 
000100 


001202 
001442 


001202 
001442 
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BASIC RECEIVER TESTS 


$1 24: SCOPE 
MOV #24 ,STSTNM ; LOAD THE NO. OF THIS TEST 
MOV #TST25 NEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR ;MASTER CLEAR KMC11 
MOV #B1T11,(R1) ;SET LU LOOP 
MOV #12,R2 :SAVE LU REG FOR TYPEOUT 
= PC,SYNC ;SINGLE CLOCK 5 SYNC CHARACTERS 
DATACLK, 54 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 aur RT4 
MOV 4(R1) ,R4 “FOUND'' IN R4 
BIC #277 ,R4 CLEAR UNVANTED BITS 
CLR R5 :PUT "'EXPECTED'' IN RS 
CMPB R5,R4 21S ACTIVE CLEAR? 
BEQ “BR IF YES 
1s ERROR 40 sERROR ACTIVE IS NOT CLEAR 
seeaaaaeeeterereteeeeereeene TEST 25 eaaaceaearaeeankaereerennane 
be: tt IN ACTIVE TEST 
>*SET LU LOOP, SINGLE Be 5 SYNCS AND A NON-SYNC (301) 
: «VERIFY THAT IN ACTIVE IS SET 
TDaghiakane teks cas Tel eae hb knknicnse dba senwendacerernene 
; TEST 25 
MEITITITITITI LITT TTT T TTT Littl ttt Litt ititit itr tii t itt 
TST25: SCOPE 
MOV #25, STSTNM LOAD THE NO. OF THIS TEST 
MOV #TS126 NEXT INT TO THE START OF NEXT TEST. 
3R1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR :MASTER CLEAR KMC11 
MOV #B1T11,(R1) ;SET LU LOOP 
MOV #12,R2 >SAVE LU REG FOR TYPEOUT 
” PC, SYNC ;SINGLE CLOCK 5 SYNC CHARACTERS 
DATACLK, 64 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 : PORT LUI2 | 
MOV 4(R1) ,R4 T ‘FOUND . 
BIC 8 =—s_- #277, R4 CLEAR UMANTED ae 
MOV =: #BIT6, RS EXPECTED" IN RS 
CMPB R5,R4 :1S ACTIVE SET? 
BEQ 1$ :BR IF YES 
1s ERROR 40 ERROR ACTIVE IS NOT SET 


F SRA EAAESAAAAAEA ERATE AAAEAHAAATRARARAARAEAREAEARER RARER RA EE 


; TEST 24 


-eekeeeeeeeeheeeeeeetetereeeeeeeeeeeeneeeecneeeeeeneareeeeneener 


SEQ 0076 
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seteeeeeererecereerecetenene TEST 26 taeeeeceeeeerererererererer 
' 


: *DDCMP IN ACTIVE TEST 


orn 


— . 


om 
~~ 
xx 





0 ;*SET LU LOOP, SINGLE STEP 1 SYNC AND A NON-SYNC (301) 
1 : «VERIFY THAT IN ACTIVE DOES NOT SET 
1} SRRERAEARAAEAEAAARAA ARETE ARAAEAEEAEEEEEREREREERERERERET EEE ES 
¢ ; TEST 26 
§ PPTITITITITIIIIILITITTLTT TLL LILI Li TTitiiiliTiiiiii iii itTtTTe 
Sees pte TST26: SCOPE 
8 017450 012737 000026 001202 MOV #26, STSTNM ; LOAD THE NO. OF THIS TEST 
9 017456 012737 017534 001442 MOV #TST27 NEXT ; POINT TO THE START OF NEXT TEST. 
50 sRI CONTAINS Pane KMC11 ADDRESS 
33 917464 104410 MSTCLR MASTER CLEAR KMC11 
¢ 1798 012711 004000 MOV #B1T11,(R1) SET LU LOOP 
5 174 pas oes 000012 MOV #12,R2 :SAVE LU REG FOR TYPEOUT 
eH 737 030276 JSR PC SYNC ;SINGLE CLOCK 1 SYNC CHARACTERS 
1728 000001 1 
aes 04 104413 000024 DATACLK, 24 
17510 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
O17512 021244 021244 sPORT4 LUI2 
017514 016104 0000 MOV 4(R1) ,R4 :PUT ‘FOUND'' I 
oie 0 042704 000277 BIC #277 ,R4 :CLEAR UNWANTED BITS 
17524 005005 CLR R5 sPUT “‘EXPECTED'’ IN R5 
017526 120504 CMPB R5,R4 21S ACTIVE CLEAR? 
He 001401 BEQ 1$ :BR IF YES 
17532 104040 ERROR 40 sERROR ACTIVE IS NOT CLEAR 
017534 1$ 
shataerereventerteraneeeenaene TEST 27 xeaaceearenenereeiaeeeeneene 
s"DDCRP IN ACTIVE TEST 
:*SET LU LOOP, SINGLE STEP f. —— AND A NON-SYNC (301) 
: VERIFY THAT IN ACTIVE IS §$ 
TCUSIURALENLEETATE 1ETUA Ada Lied uaebuebeuenntaedneseatensenses 
s . TEST Ze 
te PITITITITII ITIL LLL LTTE LLL iti titiiiiTi tiie iin 
HEE 000004 TST27: SCOPE 
175 OiSote 000027 001202 MOV #27, STSTNM ; - NO. OF THIS TEST 
017544 012737 017624 001442 MOV #TST30,NEXT : POINT TO THE START OF NEXT TEST. 
;R1_ CONTAINS “BASE OKMCT ADDRESS 
017552 104410 MSTCLR MASTER CLEAR KMC11 
17338 012711 MOV #B1T11,(R1) SET LU LOOP 
17 1e708 000012 MOV #12,R2 > SAVE LU REG FOR TYPEOUT 
i ? 030276 gi PC, SYNC : SINGLE clock 2 SYNC CHARACTERS 
17572 1 rt 000034 DATACLK, 34 
17576 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
17600 021244 021244 PORTS LUI 
17 016104 000004 MOV 4(R1) ,R4 ;PUT ‘FOUND I - 
17606 042704 900077 BIC #277 ,R4 :CLEAR eon 8 a 
17612 012705 000100 MOV = #BIT6,R5 EXPECTED" IN RS 
17816 i 5 CMPB R5,R4 215 ACTIVE SET? 
176 1401 BEQ 1$ :BR IF YES 
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sa St 
925 14 
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000030 
017776 


000012 
004000 
030444 


0000535 
000002 
ase 
000357 
000020 


000200 


000004 
000277 


000004 
000357 


BASIC RECEIVER TESTS SEQ 0078 


13 ERROR 40 sERROR ACTIVE IS NOT SET 


peeeenrareretarererereraecanae TEST 30 eeeaneencaneeeeranenerenrane 
;*IN CLEAR TEST 

s*SYNC UP RECEIVER AND TRANSMIT A CHARACTER 

;*WAIT FOR IN RDY, THEN SET IN CLEAR 

s*VERIFY THAT IN ACTIVE AND IN RDY ARE CLEARED 


5 RARER AAAAAEK EHTS AAAAAAAAAAAAAARERAAAAEAAAERAERAAHEAAEAEAAARAEEEE 


: TEST 30 


° 
fF AREA AAAAAEERAEAEAEAAEAAAAAAATERARERARARARAAAARERERAKEHEHEEREREREE 


1$130: SCOPE 
001202 MOV #30,STSTNM : LOAD THE NO. OF THIS TEST 


001442 MOV #TST31,NEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR ;MASTER CLEAR KMC11 
MOV #12,R2 7SAVE REG ADDRESS IN R2 FOR TYPEOUT 
MOV #B1T11,(R1) :SET LINE UNIT LOOP 
JSR PC, CHAR sLOAD SILO WITH 3 SYNCS 
301 ;AND A NON-SYNC (301) 
DATACLK, 53 sSINGLE CLOCK THE DATA 
TIMER, 2 s:WAIT FOR INRDY 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 :PORT4 LU 12 
V 4(R1),R4 :PuT ‘F ee R4 
BIC #357, R4 CLEAR UNWANTED BITS 
MOV #BIT4,R5S :PUT "‘EXPECTED'' IN R5 
CMPE R5,R4 :1S INRDY SET? 
BEQ 1$ 
a ERROR 40 :ERROR, INRDY IS NOT SET 
000004 MOV #BI1T7,4(R1) ;LOAD PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122112 SET IN CLEAR 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 :PORT4 LU 
MOV 4(R1),R4 :PUT ‘‘FOUND'' | 
BIC #277 RS ;CLEAR UNWANTED BITS 
CLR R5 :PUT ‘‘EXPECTED'’ IN RS 
at Ea :1S IN ACTIVE CLEAR? 
. ERROR 40 sERROR, IN ACTIVE IS NOT CLEAR 
MOV 4(R1),R4 :PUT ‘'FOUND'’ IN R4 
BIC #357,R4 ;CLEAR UNWANTED BITS 
CLR R5 :PUT “‘EXPECTED'’ IN RS 
ora ae 1S INRDY CLEARED? 
- ERROR 40 ERROR, INRDY IS NOT CLEARED 


setaeaeeeerterererecerenenee TEST 3] seeeccenecenecererereereers 


' 
' 
i 
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*DDCMP BASIC RECEICER TEST 
*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0 
“VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


SASSSSSCSSSASST ASA AASSATASAAAATATAAARAREKAARAEARARAARAKAREARAAAEE ERED 


cere ee Ee = 


gzssecbans ueginenesesnnesnnonusctensantanscacenecceceseueeqcsese 


777 1$131: SCOPE 
920009 ot9737 000031 001202 MOV s«#31, STSTNM ; LOAD THE NO. OF THIS TEST 
12737 020112 001442 MOV so #TST32, NEXT POINT TO THE START OF NEXT TEST. 





:R1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR MASTER CLEAR KMC11 
090012 MOV #12 ,R2 SAVE REG ADDRESS iN R2 FOR TYPEOUT 
MOV #B1T11,(R1) SET LINE UNIT LOOP 
44 JSR PC, CHAR [LOAD SILO WITH R SYNCS 
0 AND THE CHARACTER 0 
000053 DATACLK, 53 SINGLE CLOCK THE DATA 
000002 TIMER, 2 :WAIT FOR INRDY 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 :PORT4 LU 12 
MOV 4(R1) ig ;PUT ‘FOUND’ IN at 
000357 BIC #357, > CLEAR ar teu 
5 006020 MOV site. RS T EXPECTED" IN R5 
4 CMPB aa sis INDY SET? 


ERROR 40 ERROR, INRDY IS NOT SET 
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1$: 


sone 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 ;PORT4 IN DATA 
000004 MOV 4(R1) RS PUT ‘FOUND'’ IN R4 
CLR R5 ;PUT "'EXPECTED’’ IN RS 
CMPB a WAS A 0 RECEIVED? 


ERROR 10 sERROR, RECEIVED DATA IS WRONG 


-—-Oo°o°ooo 
WVtfr O-—- 
9 
rm 
Pa’ 


os 
oD 
m 
© 


2$: 


s caneaes AAT GETEITED TEET TEST 32 seeaeeaareeaeeeaneanenenene 


; *DDCHP BASIC RECEICER TEST 
NC UP RECEIVER AND SINGLE Sg THE CHARACTER 125 
VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


POT ETOT TT ETT T TTT ET TT TTT CT TTT TTT TTT TTT T TTT TTT TUTTE TTT Tet T Te 


S3SSSSSSSSE35 
wm 


333 


332 


jitsseneduacecncerenvesceenscencenesnnaranennsenenenecansensess 


ater3e TST32: SCOPE 

12737 32 00120 MOV #32,% : LOAD THE NO. OF THIS TEST 

12737 020230 00144 FOV ristss: NEXT POINT TO THE START OF NEXT TEST. 
4 


SOO< 


;R1 CONTAINS BASE KMC11 ADDRESS 
0 MSTCLR MASTER CLEAR 
g70s 000012 MOV #12,R2 ;SAVE REG ADDRESS IN R2 FOR TYPEOUT 
? 000 MOV #B1T11,(R1) ;SET LINE UNIT L 
737? 030444 JSR PC ,CHAR sLOAD SILO WITH 3 SYNCS 
125 125 ;AND THE CHARACTER 125 
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24 PAGE 81 
BASIC RECEIVER TESTS 
DATACLK, 53 :SINGLE CLOCK THE DATA 
TIMER, :WAIT FOR INRDY 
ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 PORTS LU 12 
MOV 4(R1) RS :PuT "FOUND'’ IN R4 
BIC #357 R64 :CLEAR UNWANTED BITS 
MOV #BIT4,R5 PUT "EXPECTED'’ IN RS 
CMPB R5,R4 :1S INRDY SET? 
BEQ 1% 
“ ERROR 40 sERROR, INRDY IS NOT SET 
ROMCLK 7NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 :PORT4_IN DATA 
v 4(R1) RS :PUT ‘FOUND’ IN R4 
MOV #125,R5 PUT ‘EXPECTED’ IN RS 
CAPE ~ tai :WAS A 125 RECEIVED? 
‘“ ERROR 10 sERROR, RECEIVED DATA IS WRONG 


seeeeaeeeeeeeneceeereterecan TEST 335 askeaccaneeeaneeeeeeenannnne 
;*DDCMP BASIC RECEICER TEST 

;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252 

s*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


2 FARRAR AAEAAA EEA ARATE EAE RAAAAAEERAREKEAAEAAEARERERAREERRERAAERAEE 


> TEST 33 


'WEeOERDAASASLALAARARARALLSARLALELLLLEESELESEEESESAS ELEC ESE SSE ESAS | 


TST33: SCOPE 
MOV #33, STSTNM ; LOAD THE NO. OF THIS TEST 
MOV #1ST34 NEXT : POINT TO THE START OF NEXT TEST. 

:R1 CONTAINS BASE KMC11 ADDRESS 

MSTCLR :MASTER CLEAR KMC11 
MOV #12,R2 :SAVE REG ADDRESS IN R2 FOR TYPEOUT 
MOV #B1T11,(R1) :SET LINE UNIT LOOP 
JSR PC, CHAR ;LOAD SILO WITH 3 SYNCS 
252 : THE CHARACTER 252 
DATACLK, 53 :SINGLE CLOCK THE DATA 
TIMER, :WAIT FOR INRDY 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 :PORTS 12 
MOV 4(R1),R4 :PUT ‘*FOUND’’ IN RG 
BIC #357 ,R4 ;CLEAR UNWANTED BITS 
MOV #B1T4,R5 sPUT ‘EXPECTED’’ IN R5 
ria — :1S INRDY SET? 

- ERROR 40 ERROR, INRDY IS NOT SET 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 PORTS IN DATA 
MOV 4(R1) RS ;PUT ‘FOUND’ IN R4 
MOV #252,R5 :PUT ““EXPECTED’’ IN R5 
- R5, WAS A 252 RECEIVED? 


SEQ 0080 


_—~——» =: 
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1 08-JUL- 
968 4 104010 ERROR 10 sERROR, RECEIVED DATA IS WRONG 
020346 2$: 
seeeteaeteerereeeerereceecaer TEST 54 senceneenaneeeeeeeeeeeerene 
;*DDCMP BASIC RECEICER TEST 
;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377 
:*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 
FERRO REESE A AEA AA AAT ARERR EAAAEAATHERAERAARAAATERAREEREERE EE 
; TEST 34 
+ deed eeeeeeeeeeeeeeeeeeeeeeeeneneneneeeeeeeeneeeereneeneeeneeeer 
4075 020 8 000004 TS734: SCOPE 
4076 020350 012737 000034 001202 MOV #34 ,STSTNM ; LOAD THE NO. OF THIS TEST 
4077 020356 012737 020464 001442 MOV #TST35 NEXT ; POINT TO THE START OF NEXT TEST. 
4078 7R1 CONTAINS BASE KMC11 ADDRESS 
4079 8 0 104410 MSTCLR sMASTER CLEAR KMC11 
4080 0 Ot See4 000012 MOV #12,R2 ;SAVE REG ADDRESS IN R2 FOR TYPEOUT 
4081 0 8 012711 004000 MOV #B1T11,(R1) :SET LINE UNIT LOOP 
408 0376 004737 030444 JSR PC,CHAR ;LOAD SILO WITH 3 SYNCS 
408 Rene 000377 377 sAND THE CHARACTER 377 
4084 020404 104413 000053 DATACLK, 53 ;SINGLE CLOCK THE DATA 
4085 020410 104414 000002 TIMER, 2 sWAIT FOR INRDY 
rt 020414 1046412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4087 0204616 021244 021244 sPORT4 LU 12 
4088 0 016104 000004 MOV 4(R1),R4 :PUT ‘‘FOUND’’ IN R4 
4089 4 042704 000357 BIC =. #357, R4 CLEAR UNWANTED BITS 
4 12705 00020 MOV #B1T4,R5 :PUT "EXPECTED'’ IN RS 
4091 0 120504 CMPB R5,R4 :1S INRDY SET? 
409 ote 001401 BEG 1 
ret oti 104040 ERROR 40 sERROR, INRDY IS NOT SET 
4095 rk; 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
409% 020444 021204 021204 :PORT4 IN DATA 
409 $5 916104 000004 MOV = &(R1) , RA ;PUT ' N RG 
4098 0452 012705 000377 MOV #377,R5 PUT “‘EXPECTED'’ IN RS 
4099 0456 120504 C R5,R4 sWAS A 377 RECEIVED? 
4100 0460 001401 BEQ 2$ 
4101 020462 104010 ERROR 10 sERROR, RECEIVED DATA IS WRONG 
re 020464 
2104 
4105 seaeeeeeeeeeereratetenetenear TEST 35 secenaaacareneacereearenens 
13 :*DDCMP DATA TEST 
410 >"THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
4108 >*CHECKING EACH CHARACTER AS IT IS RECEIVED 
4109 S ERRRAAAEAAAAAAAR ATER AAEAEAAAAAA ARATE REAR AAAERAERE EERE RETA 
4110 
rite ; TEST 35 
aiy8 + + MERRRRRERRRREEREAE TERE teeeeeeeeReAeeaeeeaeeteeeeeeteeeeeeaeeene 
4114 000004 SCOPE 
4115 OS pte 000035 001202 MOV #35, STSTNM ; LOAD THE NO. OF THIS TEST 
4116 012737 020514 001442 MOV #TST36,NEXT ; POINT TO THE START OF NEXT TEST. 
4117 :R1 CONTAINS BASE KMC11 ADDRESS 
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83 
BASIC RECEIVER TESTS 


2$: 


3$: 


#73,R3 
MOV #B1T11,(R1) 


JSR PC, SILOLD 
MOV #73,R3 
BR 1$ : CONT INUE 


MSTCLR MASTER CLEAR KMC11 

CLR SCHAR :START BINARY COUNT AT ZERO 
CLR STUFLG :CLEAR BITSTUFF FLAG 

CLR Re zR2 IS ‘EXPECTED’ DATA 

MOV 73 :R3_IS CHARACTER COUNT 


;SET LINE UNIT LOOP 
;LOAD SILO WITH COUNT PATTERN 


JSR PC,S:LOLD 
DATACLK, 4 :SYNC RECEIVER AND GET IT ACTIVE 
DATACLK, 730 :CLOCK IN 73 CHARACTERS 

JSR PC, INRDY :WAIT FOR INRDY 

ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 sPORT4_IN DATA 

MOV 4(R1),R4 :PUT ‘‘FOUND'' IN R4 

MOV R2,R5 :PUT "“EXPECTED'’ IN RS 

CMPB R5,R4 1S DATA CORRECT? 

BEQ % :BR IF YES 

ERROR 10 :DATA ERROR 

INC R2 :NEXT CHARACTER 

CMP #400,R2 ;ALL DONE? 

BEQ 3$ -BR IF YES 

DEC RZ -DECREMENT CHARACTER COUNT 

BNE 4$ :BR IF SILO NOT EMPTY 


sLOAD SILO WITH MORE OF COUNT PATTERN 
;RELOAD CHARACTER COUNT 


-eeeeaeeteketerereeeereneaeaen TEST 36 sceacaeeeneeererreeeeeerener 


>*DDCMP DATA TEST 

s*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 

> *CHECKING EACH CHARACTER AS IT IS RECEIVED 
;*THIS TEST IS EXACTLY THE SAME AS THE LAST TEST, 
;*EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12 


FARRAR SHEATHS TERRE RA AAAAAAAREAAAAAAERERARAEARRAAAEAEKAKEERERAAEE 


e 
RARE AEKTAAEKSAAARAEAAAARAALAAAAARAAAARARAAAAARAERRARERAERAEERAAEEESE 


1S136: 


SCOPE 

MOV ss #36, STSTNM ; LOAD THE NO. OF THIS TEST 

MOV = #TST37,NEXT ; POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 

MSTCLR ;MASTER CLEAR KMC11 

CLR SCHAR :START BINARY COUNT AT ZERO 

CLR = STUFLG CLEAR BITSTUFF FLAG 

CLR sR :R2 IS EXPECTED’ DATA 

MOV =—s-«#73,, R3 :R3_1S CHARACTER COUNT 

CLR (RIS CLEAR LU LOOP IN MAINT REG 

MOV  #BITS,4(R1) LOAD PORT4 

ROMCL SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

122112 ;SET LU LOOP IN LU REG 1 

JSR PC, SILOLD ZLOAD SILO WITH COUNT PATTERN 

DATACLK, 43 :SYNC RECEIVER AND GET IT ACTIVE 

DATACLK CLOCK IN 73 CHARACTERS 


C 
WAIT FOR INRDY 


es 


+o See 
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4174 0207 104412 OMCLK sNEXT WORD +m INSTRUCTION, ROMCLK PC=5304 
4175 0 18 0212 021204 ; PORTS IN DAT 
4176 02071 016106 000004 MOV 4(R1) RG ;PUT ‘‘FOUND'’ ' 
4177 020716 01 gh MOV R2.,R5 >PUT “EXPECTED'' IN R5 
4178 020720 120504 (MPB RS,RS 71S DATA CORRECT? 
4179 020722 1401 BEOQ 23 >BR IF YES 
4180 0724 104010 ERROR 10 :DATA ERROR 
418) 07 Oo 606 2%: INC R2 >NEXT CHARACTER 
1188 07 022702 000400 CMP #400 ,R2 [ALL DONE? 
4185 0207 001407 BEQ 3$ :BR IF YES 
4184 0207 005303 DEC R3 ;DECREMENT gorge COUNT 
4185 020740 001360 BNE 4$ :BR IF SILO NOT EMP 
8 020742 004737 030622 JSR PC,SILOLD ;LOAD SILO WITH MORE "oF COUNT PATTERN 
4187 020746 012703 000073 MOV #73,R3 :RELOAD CHARACTER COUNT 
4188 020752 000751 BR 1$ ; CONTINUE 
4189 020754 3$: 
4190 
4191 
4192 seeaeeeeeeeneeeretererereane TEST 37 xantareraeareaneeenreneeeee 
4193 : * TRANSMITTER MARK TEST 
4194 :*SINGLE CLOCK 3 SYNCS AND A 301 AND 20 EXTRA 
4195 :*CLOCK TICKS, VERIFY THAT A 301, A 377 AND A 377 
4196 : *WERE RECEIVED INDICATING THAT THE TRANSMITTER WENT 
4197 ;*7T0 A MARK STATE FOR 16 BITS WHEN OUT SILO WAS EMPTY 
4198 STEM AAAAAAAAAH AAAS RA AREA EAAAEREREARAEAREREAREREE RARER R TEER E RES 
4199 
espe s: TBST or 
rh Epasarenesasendetdsenenessneeceynaesdnasenvesesvencescesenecnecs 
4203 020754 000004 TST37: SCOPE 
4204 020756 012737 000037 001202 MOV #37,S1TSTNM ; LOAD THE NO. OF THIS TEST 
4205 020764 012737 021114 001442 MOV #TST40,NEXT ; POINT TO THE START OF NEXT TEST. 
ogte :R1 CONTAINS BASE KMC11 ADDRESS 
4207 020772 104410 MSTCLR :MASTER CLEAR gy 
4 oS 020774 012711 004000 MOV WBIT11,(R1) :SET LINE UNIT L 
4 0 ions 004737 030444 JSR PC CHAR ;LOAD SILO WITH 3° SYNCS 
4210 021 000301 1 :AND A 301 
4211 0 6: 104413 000073 DATACLK, 73 CLOCK THE ek IN AND 20 EXTRA TICKS 
4 \¢ 021012 004737 031066 JSR PC, INRDY WAIT FOR INRDY 
4215 021016 104412 ROMCLK sNEXT WORD iv INSTRUCTION, ROMCLK PC=5304 
4214 1020 021204 021204 ; PORTS IN DAT 
4215 021022 016104 000004 MOV = &(R1) J RG ;PUT ‘'FOUND"' TN 4 
4 19 Ms 12705 000301 MOV #301,R5 :PUT EXPECTED’ IN RS 
421 021 120504 CMPB R5,R4 “WAS A 301 RECEIVED? 
‘si8 0210 001401 BEQ 1$ 
421 10 104010 ERROR 10 sERROR FIRST CHARACTER INCORRECT 
4 1 737 031066 1$: JSR PC, INRDY ;WAIT FOR INRDY 
4221 1044 412 ROMCLK sNEXT WORD iF INSTRUCTION, ROMCLK PC=5304 
4228 21046 901204 021204 PORTA IN DATA 
4 1 104 000004 MOV 4(R1) ,R4 im R4 
4224 1054 705 000377 MOV #377,R5 ‘PUT “EXPECTED” IN R5 
4225 021 504 CMPB RS RA “WAS A 377 RECEIVED? 
4 $ 1 Score BEQ 23 
556 BSR OeF8E osroue as: SER" Pasumoy FEM NOT RECEIVED 
% : P Z 
4229 $5068 1 12 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
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BASIC RECEIVER TESTS 


3$: 


TST40: 


3$: 


18: 


021204 ;PORT4 IN DATA 
MOV 


4(R1) RS ;PUT ‘‘FOUND'’ IN R4 
MOV #377, :PUT “‘EXPECTED’’ IN R5 
aa R5,R4 ;WAS A 377 RECEIVED? 
ERROR 10 ERROR, 177 WAS NOT RECEIVED 


seeeeaeeeeetetereterereneane TEST 40 setacaneacaneearaereeareneesr 
>*CABLE TURNAROUND TEST 

>*CLEAR LINE UNIT LOOP, SET DIR 

>*VERIFY THAT RING AND MODEM READY ARE SET 

>*CLEAR DTR, VERIFY THAT RING AND MRDY ARE CLEARED 


FERRARA RAAAARAE ESTER EAE EE EAA AAAAAETAAEARAREKEAEAEAARAAAERTERE RARE 


: TEST 40 


° 
5g AERA AAAEAAEEAOEAAAE EAE EEE AAA AAAREREAERAEKAAAERERARAE 


SCOPE 
MOV #40,$TSTNM : LOAD THE NO. OF THIS TEST 
MOV #TST41,NEXT : POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR :MASTER CLEAR KMC11 
BIT #B1T13,STATI :1S LINE UNIT M8202? 
BNE +12 :BR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN) 
BIT #B1T14,STATI :1S TURNAROUND CONNECTOR ON? 
BEQ 2$ :SKIP TEST IF NO 
CLR (R1) :CLEAR LINE UNIT LOOP 
MOV #100,4(R1) “LOAD PORT4 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122113 “SET DTR 
TIMER, 2 sWAIT 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021264 *PORT4 LU13 
MOV 4(R1) RS : PUT FOUND IN R4& +44 4NEW 
BIC #23,R4 > CLEAR J 
MOV #310,R5 : GET EXPECTED. 
BIT #B1T13, STATI : 1S LINE UNIT M8202? 
.* 
BIC #B1T7,R5 : NO RING ON M8202 
BIT #B1T2,STAT3 : 1S THIS V.35 MODEM? 
BEQ 3g : NO THEN GO AHEAD. 
BIC #BIT7.RS ; YES-NO RING ON V.35 MODEM 
CMP R5,R4 ; ARE RING AND MODEM READY SET? 
BEO 1$ : WARNING! If V.35 AND AUTO STARTED, 
; YOU WILL GET THIS ERROR. YOU MUST 
: MANUALL NASWER THE QUESTIONS FOR V.35. 
ERROR 11 sERROR, RING OR MRDY NOT SET 
CLR 4(R1) “CLEAR PORTS 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122113 : “CLEAR DIR 


SEQ 0084 
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1 0 
021 $6 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021 021264 021264 :PORT4 LU13 
1272 016104 000004 MOV 4(R1),R4 ; PUR FOUND IN R4 +++NEW 
1 ‘8 engine 000023 BIC #23,R4 ; STRIP JUNK 
021 60 3 CLR RS ; SET EXPECTED. 
021 032737 020000 002050 BIT #B1T13,STATI ; IS THIS A M8202? 
021312 Oe oss BEQ = 
021514 ba5h8 000010 BIS #B1T3,R5 ; YES THEN EXPECT MRDY SET. 
021320 032737 000004 002054 BIT #BIT2,STATS ; IS THIS v.35? 
021326 001402 BEQ 4$ 
; 042704 000200 - BIC #BIT7,R4 
021334 120405 CMPB R4,RS ; ARE RING AND MRDY CLEAR? 
021336 001401 BEQ 2% 
; WARNING! YOU MAY GET THIS ERROR IF v.35 
; AND AUTOSTART. YOU MUST MANNUALLY ANSWER 
; ALL QUESTIONS IF V.55. 
021340 104011 ERROR 11 ;ERROR, RING OR MRDY NOT CLEAR 
021342 2$: 
saeekeeetetetererecenenenane TEST 6] eeaetakaneareaerererereneene 
;*CABLE TURNAROUND TEST 
;*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO 
:*VERIFY THAT ALL MODEM SIGNALS ARE SET 
5 RRA RAAERERAEAAAE ERA AAERARAAEARARAAEARAARERAAAEREERERARRERT EERE 
; TEST 41 
PII TITITITIT ILI LILI LLL LL LITi Lili iiiiiiiiiiiiie 
021342 000004 TST41: SCOPE 
021344 012737 000041 001202 MOV #41 ,STSTNM ; LOAD THE NO. OF THIS TEST 
0213552 012737 021536 001442 MOV #TST42 NEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
021 ee bh MSTCLR “MASTER CLEAR KMC11 
021 032737 020000 002050 BIT #B1T13,STAT1 ;1S LINE UNIT M8202? 
021 Bhs BNE +12 :BR IF YES (DO TEST pF IF ae LOOP-BACK CONN) 
1372 032737 040000 002050 BIT #B1T14,STATI ;1S TURNAROUND CONNECTOR ON? 
14 001456 BEQ 1$ SKIP TEST IF NO 
14 Bi Syat 004000 MOV #B1T11,(R1) SET LINE UNIT LOOP 
14 012761 000100 000004 MOV W100, 4(R1) ;LOAD PORT4 
1414 193546 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=53504 
141 eel 122113 > CLEAR ALL MODEM SIGNALS,EXCEPT DIR 
14 104414 000002 TIMER, 2 WAIT 
1424 012761 000001 000004 MOV #1,4(R1) LOAD PORT 
14 104412 ROMCLK s NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
14 122111 122111 ;SET SOM 
14 537 031530 JSR R5,MESLD FILL OUT DATA SILO 
144 012 MESDAT sWITH 64 CHARACTERS 
1444 100 64. 
144 12700 000050 MOV #50,R0 ;PREPARE FOR DELAY 
at 005011 Fe CLR (R1) :CLEAR LINE UNIT LOOP 
1454 104412 ROMCLK NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
1456 021264 021264 PORTS U13_ 
021460 016104 000004 MOV 4(R1) RS FOUND IN RG 
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OF 1466 042704 000023 BIC #23,R4 :CLEAR UNWANTED BITS 

021470 612705 000354 MOV #354. R5 ;PUT ““EXPECTED’’ IN RS 

021474 032737 000004 002054 BIT #B1T2,STAT3 : IS THIS v.35? 

021502 001402 BEQ 4$ : NO 

1308 042705 000200 “ BIC #BIT7.R5 : YES, GET RID OF RING 

021510 032737 020000 002050 BIT #B1T13,STAT1 :1S LINE UNIT M8202? 

8 1516 001402 BEO .+6 “BR IF NO 

1369 042705 000200 BIC #B1T7,R5 :NO RING ON M8202 

021524 120504 CMPB R5,R4 :COMPARE EXPECTED AND FOUND 

ogi? 6 001403 BEQ 1$ “BR IF OK 

0215 005300 DEC RO :DEC DELAY COUNT 

021532 001350 BNE 2$ :BR IF NOT ZERO 

021534 104011 ERROR 11 ;ERROR, ALL SIGNALS ARE NOT SET 
; WARNING IF V.35, YOU MUST ANSWER ALL QUESTIONS 
: MANUALLY. 

021536 1$ 


seeakaaeeereereeeteeereeeane TEST Gf seanatcaneeereaeeeeeeneerene 
:*TEST OF CRC OPERATION 

>*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK = CHARACTER 

:*0, VERIFY THE LSB OF THE BCC ON EACH SHIF 

:eTEST TRANSMITTER FIRST THEN THE RECEIVER BCC 


> eReeOeeeC RARER eeAeeReeRRERARKKeReeReeeneeeeenteeeneeeeere 


; TEST 42 


Che ROReeReeeReeereteterecedeteeeeeeeteeeeeaeeeretarenreneeeener 


021536 000004 TS142: SCOPE 
021540 012737 000042 001202 MOV #42, STSTNM ; LOAD THE NO. OF THIS TEST 
021546 012737 022052 001442 MOV #TST43,NEXT : POINT TO THE START OF NEXT TEST. 
021554 012737 021570 001444 MOV #64$,L0CK ADDRESS FOR LOCK ON DATA 
‘RI CONTAINS BAS KMC11 ADDRESS 

021562 104410 MSTCLR zMASTER CLEAR KMC11 
0 1 64 012711 004000 MOV #B1T11,(R1) “SET LU LOOP 

1 737 031572 64$: JSR PC,CLRIO CLEAR “etc REGISTERS 

1574 005 CLR RO >START SHIFT COUNTER AT ZERO 

1576 01 120001 031226 MOV #CRC16,XPOLY ; LOAD POLYNOMIAL FOR SOF TUARE BCC 

1604 012737 000000 021644 MOV #0,66$ “LOAD CHAR FOR SOFTW ARE BCC 

1612 Q 7 021646 CLR 67$ ; CLEAR OLD SOFTWARE BCC 

161 7 031232 JSR PC,BCCLD :LOAD OUT SILO WITH 2 SYNCS 

1622 ‘AND THE CHARA 

1624 104413 000021 DATACLK, 21 “GET TRANSMITTER ACTIVE 

1630 104413 000001 65$:  DATACLK. 1 “SHIFT BCC ONCE 

16 905200 INC RO ;BUMP SHIFT COUNT 

163 031122 JSR R5,SIMBCC : CALCULATE SOFTWARE BCC LSB 

1644 668 p ;DATA CHARACTER 

1650 103405 BCS “BR IF SOFT BCC LSB IS SET 
02165 737 031344 JSR + GE TOO >GET HARDWARE TRANSMITTER Bcc LSB 
0 1656 103006 BCC ao “BR IF HARD BCC LSB Is CLEAR 

1 104012 ERROR 12 -ERROR, BCC LSB IS SET 
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BASIC RECEIVER TESTS 


68$: 


69%: 


71$: 


72%: 


73$: 
74$: 


75$: 


76$: 


77$: 


BR 69% 
JSR PC GETQO 
BCS 69$ 
ERROR 16 


66$ 

MOV CALBCC ,67$ 
#10,R0 

MOV #71$,LOCK 


JSR = 
MOV #TRC16,XPOLY 
#0,73$ 


CLR 
JSR PC,BCCLD 
DATACLK, 32 
DATACLK, 1 
INC RO 
JSR R5,SIMBCC 
0 
0 
BCS 75$ 
JSR PC ,GETQI 
BCC 768 
ERROR 1 
76$ 

JSR PC,GETQI 

S 76$ 
ERROR 17 


73$ 
MOV CALBCC,74$ 
CMP #10,R0 

728 


; CONTINUE 
;GET HARDWARE TRANSMITTER BCC LSB 
7BR IF HARD BCC LSB IS SET 


ERROR, HARD BCC LSB IS CLEAR 


SHIFT SOFT DATA 

LOAD OLD. SOFT BCC 

DONE YET? 

:BR IF NOT DONE 

ot SUBTEST (SWO9=1) 
WwW SCOPE1 


CLEAR BCC REGISTERS 
START SHIFT COUNTER AT ZERO 
;LOAD POLYNOMIAL FOR SOFTWARE BCC 


‘GET RECEIVER ACTIVE 

SHIFT BCC ‘. cE 

:BUMP SHIFT COUNT 

;CALCULATE SOFTWARE BCC LSB 


ONE SHIFT 

DATA CHARACTER 

OLD BCC 

:BR IF SOFT BCC LS 

GET HARDWARE RECE 
Is 


ww 
< 


:BR IF HARD BCC 
sERROR, BCC LSB I 
: CONT INUE 


GET HARDWARE RECEIV 
:BR IF HARD BCC LSB 
ERROR, BCC LSB IS C 


sSHIFT SOFT DATA 
;LOAD OLD SOFT BCC 
;DONE YET? 

;BR IF NOT DONE 

;SCOPE SUBTEST (SWwO9=1) 


seeeeaereeeerecerererearecaee TEST 43 seneaneneaneneeereneneenter 


:*TEST OF CRC OPERATION 
; THE CRC16 POLY 
#377, VERIFY THE LSB OF 


YNOMIAL, SINGLE tg vt CHARACTER 


THE BCC ON EAC 


retest TRANSMITTER FIRST THEN THE RECEIVER BCC 


SRRAKAAAAATASTAATAAAAAAAAEARARAAAAATAARARAAAAAARAARRAEREAREREAELAEAREEE 


; TEST 43 


PUTITITIIITITITITICITTTIITTTT TILT ITTTtitititiiititiiiii titi iit 


18143: 


SCOPE 

MOV #43, STSTNM 
MOV #TST44 NEXT 
MOV #64$ ,LOCK 


LOAD THE NO. OF THIS TEST 


: POINT TO THE START oth a TEST. 


: ADDRESS FOR LOCK ON 


SEQ 0087 
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CZKCE.P11 O08-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0088 
=R1 CONTAINS BASE KC ADDRESS 
076 106410 MSTCLR ;MASTER CLEAR KMC11 
100 012711 004000 MOV #B1T11,(R1) “SET LU LOOP 
104 004737 031572 64$: JSR PC, CLRIO CLEAR “ect REGISTERS 
11 00 CLR R START SHIFT COUNTER AT ZERO 
112 0127 120001 031226 MOV #CRC16,XPOLY | :LOAD POLYNOMIAL FOR SOFTWARE BCC 
120 012737 377 022160 MOV #377 ,668; :LOAD CHAR FOR SOFTWARE BCC 
1 0050 7 022162 CLR 67$ “CLEAR OLD SOFTWARE BCC 
1 7 031232 JSR PC,BCCLD “LOAD OUT SILO WITH 2 SYNCS 
1 0005 7 377 “AND THE CHARACTER 377 
140 104413 000021 DATACLK, 21 :GET TRANSMITTER ACTIVE 
144 104413 000001 €5$:  —- DATACLK. 1 “SHIFT BCC ONCE 
150 005200 INC RO “BUMP SHIFT COUNT 
13 7 031122 JSR RS, SIMBCC : CALCULATE SOFTWARE BCC LSB 
160 000000 66$: 0 “DATA CHARACTER 
16 67$: 0 “OLD BCC 
164 103405 BCS 68$ :BR IF SOFT BCC LSB IS SET 
166 004737 031344 JSR PC ,GETQO “GET HARDWARE TRANSMITTER BCC LSB 
172 103006 BCC 69$ “BR IF HARD BCC LSB IS CLEAR 
174 104012 ERROR 12 “ERROR, BCC LSB IS SET 
176 000404 BR 69$ : CONT INUE 
200 004737 031344 68$: JSR PC ,GETQO >GET HARDWARE TRANSMITTER BCC LSB 
04 103401 BCS 69$ :BR IF HARD BCC LSB IS SET 
06 104016 sa ERROR 16 -ERROR, HARD BCC LSB IS CLEAR 
10 37 022160 ROR 66$ :SHIFT SOFT DATA 
14 01 737 031250 022162 MOV CALBCC .67$ “LOAD OLD SOFT BCC 
22700 000010 CMP #10,R0 “DONE YET? 
001346 BNE “BR IF NOT DONE 
104405 SCOP1 :SCOPE SUBTEST (SW09=1) 
012737 022240 001444 MOV #71$,LOCK :NEW SCOPE1 
737. (031572 71$: JSR PC, CLRIO “CLEAR BCC REGISTERS 
5 CLR RO :START SHIFT COUNTER AT ZERO 
2737 120001 031226 MOV #CRC16,XPOLY | :LOAD POLYNOMIAL FOR SOFTWARE BCC 
: 7 000377 022314 MOV #377,73$: “LOAD CHAR FOR SOFTWARE BCC 
37 022316 CLR =CLEAR OLD SOFTWARE BCC 
7 031232 JSR PC,BCCLD :LOAD OUT SILO WITH 2 SYNCS 
77 377 “AND THE CHARACTER 377 
13 32 DATACLK, 32 > GET RECEIVER ACTIVE 
13 000001 72$:  DATACLK. 1 “SHIFT BCC ONCE 
00 INC RO “BUMP SHIFT COUNT 
f 031122 JSR RS, SIMBCC : CALCULATE SOFTWARE BCC LSB 
73$: 0 “DATA CHARACTER 
ms 6D “OLD BCC 
5 BCS 75$ 1S SET 
737 031356 JSR PC,GETOIL :GET VER BCC LSB 
1 3006 BCC 76$ “BR I IS CLEAR 
10401 ERROR 13 sERROR, BCC LSB IS SET 
0004 BR 76$ : CONT INUE 
737 031356 75$: JSR PC GETOL *GET HARDWARE RECEIVER BCC LSB 
103401 BCS 76$ :BR IF HARD BCC LSB IS SET 
104017 ERROR 17 *ERROR, BCC LSB IS CLEAR 


76$: 
006037 022314 ROR 73% :SHIFT SOFT DATA 
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BASIC RECEIVER TESTS 


77$: 


MOV CALBCC,74$ ;LOAD OLD SOFT BCC 

CMP #10,R0 ;DONE YET? 

BNE :BR If NOT DONE 

SCOP1 :SCOPE SUBTEST (SW09=1) 


seaeerenetereeerereenencecae TEST £4 raneneeanrecenrerereenereeer 
:*TEST OF CRC OPERATION 
; #USING THE CRC16 POLYNOMIAL, SINGLE CLOCK po CHARACTER 
VERIFY THE LSB OF THE BCC ON EACH SHIFT 
‘sTest TRANSMITTER FIRST THEN THE RECEIVER BCC 


TTT TTT TT TTTI TITTLE TTT TT ETT TTT TTT TTT TTT TTT TTT TTT TTT 


; TEST 44 


eke eeeeekeeeeeeeetetererteeheetenenenetereeeereeeeeeeeanenenees 


tST44: 


64$: 


65$: 


66$: 
67$: 


68$: 


69$: 


71$: 


SCOPE 
MOV #44, STSTNM : LOAD THE NO. OF THIS TEST 
MOV #TST45 NEXT ; POINT TO THE START OF NEXT TEST. 
MOV #64$,L0CK ADDRESS FOR LOCK ON DATA 
sR1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR “MASTER CLEAR KMC11 
MOV #B1T11, (R1) “SET LU LOOP 
JSR PC, CLRIO “CLEAR BCC REGIST ERS 
CLR RO :START SHIFT COUNTER AT ZERO 
MOV #CRC16,XPOLY | :LOAD POLYNOMIAL FOR SOFTWARE BCC 
MOV #125 ,66$: “LOAD CHAR FOR SOFTWARE BCC 
CLR 67$ “CLEAR OLD SOFTWAR 
JSR PC,BCCLD :LOAD OUT SILO WITH 2 SYNCS 
125 “AND THE CHARACTER 
DATACLK. 21 “GET TRANSMITTER ACTIVE 
DATACLK, 1 >SHIFT BCC ONCE 
INC RO “BUMP SHIFT COUNT 
JSR RS, SIMBCC : CALCULATE SOFTWARE BCC LSB 
0 “DATA CHARACTER 
0 “OLD BCC 
BCS 68$ “BR IF SOFT BCC LSB IS SET 
JSR PC,GETQ0 “GET HARDWARE TRANSMITTER BCC LSB 
Bcc 69$ *BR IF HARD BCC LSB IS CLE 
ERROR 12 *ERROR, BCC LSB IS SET 
BR 69$ : CONT INUE 
JSR PC, GETQO *GET HARDWARE TRANSMITTER BCC LSB 
BCS 69$ “BR IF HARD BCC LSB IS SET 
ERROR 16 *ERROR, HARD BCC LSB IS CLEAR 
ROR 66% :SHIFT SOFT DATA 
MOV CALBCC ,67$ ;LOAD OLD SOFT BCC 
CMP #10,R0 “DONE YET? 
BNE “BR IF NOT DONE 
SCOP1 >SCOPE SUBTEST (SW09=1) 
V #71$,LOCK Ww SCOPE1 


:NEW 
JSR PC,CLRIO cyeee BCC REGISTERS 
LR RO :START SHIFT COUNTER AT ZERO 
#CRC16,XPOLY ;LOAD POLYNOMIAL FOR SOFTWARE BCC 


SEQ 0089 
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1 08-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0090 
022570 012737 000125 022630 MOV #125,73$: ;LOAD CHAR FOR SOFTWARE BCC 
37 S 7 Ge0083 CLR 74$ CLEAR OLD SOFTWARE BCC 
7 031232 JSR PC,BCCLD ;LOAD OUT SILO WITH 2 SYNCS 
1 125 ;AND THE CHARACTER 125 
} ince 000032 DATACLK, 32 3GET RECEIVER ACTIVE 
14 «#1 1 000001 723: DATACLK, 1 > SHIFT BCC Ra 
6 9 2 INC RO ;BUMP SHIFT COUNT 
6 : 031122 = RS,SIMBCC : CALCULATE SOFTWARE BCC LSB 
73%: 0 sDATA CHARACTER 
74$: 0 “OLD BCC 
1 0 BCS 5$ “BR IF SOFT BCC LSB IS SET 
6 004737 031356 JSR PC, ,GETQI ;GET HARDWARE RECEIVER BCC LSB 
64 105006 CC 6$ 7BR IF HARD BCC LSB IS CLEAR 
M'r4- ERROR 13 sERROR, BCC LSB iS SET 
rch 04 BR 76$ : CONTINUE 
650 004737 031356 75$: JSR PC,GETQI GET HARDWARE RECEIVER BCC LSB 
654 103401 cS 76$ :BR IF HARD BCC LSB IS SET 
o28 104017 vee ERROR 17 sERROR, BCC LSB IS CLEAR 
8 660 37 022630 ROR 73$ sSHIFT SOFT DATA 
re 37 031230 MOV CALBCC,74$ ;LOAD OLD SOFT BCC 
022672 00 000010 CMP #10,R0 =D YET? 
0 th 46 BNE 72$ “BR IF NOT DONE 
022700 05 SCOP1 ;SCOPE SUBTEST (SW09=1) 
022702 77$: 
sekakeeeeaetereretereneeerane TEST G5 Ree eeeeekeeeeeeeeeeeekeeee 
:*TEST OF CRC OPERATION 
= #US ING THE CRC16 POLYNOMIAL, SINGLE CLOCK 7” CHARACTER 
3*252, VERIFY THE LSB OF THE BCC ON EACH SHIFT 
seTESt TRANSMITTER FIRST THEN THE RECEIVER BCC 
SRAAAAAAETASTCLSETAATEKAEACATAAAAAARAAAAAAEAAARAEEAAERRAARAEEAREAEAREEEEEE 
; TEST 45 
PITTI Titi T LT LLL LiL LTTE ELLE E Tee 
rhe 7 1S145: sc 
7 01 7 000045 001202 MOV #45,$TS ; LOAD THE NO. OF THIS TEST 
ig + 737 psague 001442 MOV atstee NEXT ; POINT TO THE START OF NEXT TEST. 
7 12737 022734 001444 MOV #64$ ,LOCK > ADDR ESS FOR LOCK ON DATA. 
3 sR CONTAINS BASE KMC11 ADDRESS 
7 104410 MSTCLR “MASTER CLEAR KMC11 
7 12711 004000 MOV #B1T11,(R1) *SET LU LOOP 
7 737 031572 64$: JSR PC,CLRIO sCLEAR BCC ap AL 
74 5 CLR RO > START SHIFT og qe T ZERO 
74 1 120001 031226 MOV #CRC16,XPOLY ;LOAD POLYNOMIAL FOR SOFTWARE BCC 
? 12737 §2 023010 MOV #252668: :LOAD CHAR FOR SOFTWARE BCC 
4 7 6 12 CLR 7$ ;CLEAR OLD SOFTWARE ae 
7 031232 JSR PC ,BCCLD sLOAD OUT SILO WITH 2 SYNCS 
7 2 252 5 THE CHARACTER 252 
41 000021 DATACLK, 21 7GET TRANSMITTER ACTIVE 
104413 000001 65$: DATACLK, 1 ;SHIFT BCC ONCE 
2200 INC RO :BUMP SHIFT COUNT 
004 031122 JSR R5,SIMBCC sCALCULATE SOFTWARE BCC LSB 
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CZKCE.P11  O8-JUL-80 08:24 BASIC RECEIVER TESTS 
46 1 1 :ONE SHIFT 
46 663: 0 “DATA CHARACTER 
4626 67$: 0 :OLD BCC 
4625 1 9 BCs :BR IF SOFT BCC LSB IS SET 
46 6 0 004737 031344 JSR PC,GETQO GET HARDWARE TRANSMITTER Bcc LSB 
46 10 BCC $ :BR IF HARD BCC LSB IS CLEAR 
46 § 102013 ERROR 1 ;ERROR, BCC LSB IS SET 
46 000404 BR 69$ TINU 
46 004737 031344 68$: JSR PC,GETQO <GET HARDWARE TRANSMITTER BCC LSB 
4631 103401 BCS 69$ :BR IF HARD BCC LSB IS SET 
46 : 104016 ” ERROR 16 “ERROR, HARD BCC” LSB IS CLEAR 
4634 0 906037 023010 ROR 66$ ; SHIFT SOFT DATA 
4635 013737 031230 023012 MOV CALBCC,67$ ;LOAD OLD SOFT BCC 
46 2700 000010 CMP #10,R0 :DONE YET? 
46 1346 BNE “BR IF NOT DONE 
46 104405 SCOP1 :SCOPE SUBTEST (SW09=1) 
46 012737 023070 001444 MOV #71$,L0CK :NEW SCOPE1 
4640 0 004737 031572 71$: JSR PC,CLRIO :CLEAR BCC REGISTERS 
4641 74 905000 CLR RO :START SHIFT COUNTER AT ZERO 
4642 023076 012737 120001 031226 MOV #CRC16,XPOLY § :LOAD POLYNOMIAL FOR SOFTWARE BCC 
4643 023104 012737 000252 023144 MOV #252,73$: *LOAD CHAR FOR SOFTWARE BCC 
4644 023112 005037 023146 CLR 74$ sCLEAR OLD SOFTWARE BCC 
4645 0 116 006737 031232 JSR PC,BCCLD sLOAD OUT SILO WITH 2 SYNCS 
4646 122 00025¢ 252 ;AND THE CHARACTER 252 
4647 023124 104413 000032 DATACLK, 32 :GET RECEIVER ACTIVE 
4648 02351 104413 000001 72$: DATACLK, 1 : SHIFT BCC ONCE 
4649 0 1 005200 INC RO :BUMP SHIFT COUNT 
4650 1 031122 JSR R5,SIMBCC ;CALCULATE SOFTWARE BCC LSB 
4651 0 142 000001 1 SH 
465 3144 000000 738: 0 “DATA CHARACTER 
465 0 146 000000 74$: 0 OLD BCC 
4654 130 103405 BCS 75$ -BR IF SOFT BCC LSB IS SET 
4655 152 004737 031356 JSR PC,GETQI :GET HARDWARE RECEIVER BCC LSB 
465 156 103006 BCC $ :BR IF HARD BCC LSB IS CLEAR 
465 160 104013 ERROR 13 ;ERROR, BCC LSB IS SET 
465 162 000404 ; GR 76$ iT INUE 
4659 02 164 004737 031356 75$: JSR PC GETQ! GET HARDWARE RECEIVER BCC LSB 
4660 170 103401 BCS 76$ :BR IF HARD BCC LSB IS SET 
4661 17e 104017 oa ERROR 17 sERROR, BCC LSB IS CLEAR 
rhe 174 006037 023144 ROR 73$ :SHIFT SOFT DATA 
4664 90 013737 031230 023146 MOV CALBCC,74$ LOAD OLD SOFT BCC 
4665 022700 000010 CMP #10,R0 :DONE YET? 
4666 0 3212 001346 BNE 72$ >BR IF NOT DONE 
466 3216 104405 SCOP1 “SCOPE SUBTEST (SW09=1) 
ree 023216 773: 
2690 
4671 seeeeeteereeeerereecerereteee TEST 46 steantecenaeeeescereeratere 
467 > * TRANSMITTER CRC TEST 
467 >*#USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY 
4674 >*COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT 
4675 S RREAATAAECAAAAA AAA AAA AA AAA EAA AAAAeAAA AAA AAA AeA eteteAAeetees 


467 ; TEST 46 


eo a eee ee 
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reds $s ° Shecenececcececeeceeeeeeeceeeeeqeqqeqaceqaceraeeeeeeeceeeeeseer 
TS146: SCOPE 
4 024226 Gi797 o090%6 001202 MOV #46, STSTNM : LOAD 1 NO. OF THIS TEST 
4 6 737 023454 001442 MOV #1S147 WEXT POINT TO THE START OF NEXT TEST. 
=R1 CONTAINS BASE KMC11 ADDRESS 

4 104410 MSTCLR :MASTER CLEAR KMC11 

11 004000 "OV #81711, (R1) 7SET LINE UNIT LOOP 
4 3 CLR R3 :ZERO BIT COUNT 
4 CLR R4 7R4 CONTAINS CHAR TO BE LOADED IN SILO 
4 CLR R5 =R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 
4 7 023352 CLR 4$ :CLEAR SOFT BCC 
4 7 16000 0631226 MOV #CRC16,XPOLY :LOAD POLYNOMINAL 
4 7 031374 JSR PC,SYNLD >LOAD SILO WITH “f: SYNCS, SOM SET 
4 61 MOV R4,4(R1) sPORTS ¢ CHAR 
469 26 T QORD IS INSTRUCTION, ROMCLK PC=5304 
4 4 1 44 122110 ay OUT DATA 
4 204 INC R4 “INCREMENT TO NEXT CHARACTER 
4 MOV R4,4(R1) : PORTS CHAR 
4 ROMCLK oo. Is INSTRUCTION, ROMCLK PC=5304 
4 38 122110 fy oH OUT DATA 
4 INC R4 INCREMENT. TO NEXT CHARACTER 
4 MOV R4,4(R1) -PORT4 CHAR 
4701 ROMCLK :NEXT a IS INSTRUCTION, ROMCLK PC=5304 
47 ; 122110 “LOAD OUT DATA 
47 JSR PC,OCOR :WAIT PUR OCOR 
47 DATACLK, 21 sCLOCK DATA 
of 1$: MOV R5,3$ LOAD CHAR FOR SOFT CRC 
4 2$: DATACLK,1 ‘SHIFT BCC ONCE 
47 JSR RS, SIMBCC CALCULATE SOFT BCC 
47 1 :SOFT SHIFT COUNT 
47 3$: 0 SOFT CHARACTER 
47 4$: 0 “OLD SOFT BCC 
471 BCS 5$ >BR IF SOFT BCC LSB IS SET 
471 JSR PC,GETQO :GET HARDWARE TRANSMITTER BCC LSB 
471 BCC 6% :BR IF OK (CLEARED) 
471 ERROR 20 sERROR, BCC LSB WAS SET 
4715 BR 6% “CONTINUE WIT T 
one 5$: JSR PC,GETQO :GET HARDWARE TRANSMITTER BCC LSB 
471 BCS 6$ -BR IF Ok (SET) 
a ERROR 21 ERROR, BCC LSB WAS CLEAR 
47e 6$: 
47 “4 023350 ROR 3$ :SHIFT SOFT DATA 
47 ¢ 13737 031230 023352 MOV CALBCC,4% LOAD OLD SOFT BCC 
47 é $03 INC R : INCREMENT BIT COUNTER 
er : 14 000010 C g70 43 :DONE A FULL CHARACTER YET? 
47? : CLR R3 :RESTART BIT COUNTER 
47 INC R4 ; INCREMENT DATA FOR SILO 
47 000400 CMP #400 .R4 :DONE BINARY COUNT YET? 
3 10461 000004 4 R4,4(R1) PORTS DA DATA 
4731 8 ate OM NEXT OORD 1S INSTRUCTION, ROMCLK PC=5304 
47 42 1 ah 122110 ct OAD OUT DAT 
4? 44 205 9$: INC R5 : INCREMENT DATA 


~~ owe ee a - 
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BASIC RECEIVER TESTS 


CMP #400 ,R5 
1$ 


:DONE BINARY PATTERN YET? 
BR IF NO 


pe eaeeeaneeeeerereneeeteraene TEST 47 seneeneeneeerenrereneereeeee 


;*RECEIVER CRC TEST 


*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY 
>*COUNT PATTERN, VERIFY THE LSB OF THE RECEIVER BCC ON EACH SHIFT 


FERRET EEE EATER AAAAAEKAEAAAAAREEAAAAAAAAAEREETAARREEE 


PT TITIITITITILELIL ELITE TILE TTT titi T TTT tte 


; TEST 47 
18147: SCOPE 
MOV #47 ,STSTNM 
MOV #TSTSO,NEXT 
MSTCLR 
MOV #B1T11,(R1) 
CLR R3 
CLR RG 
CLR R5 
CLR 4$ 
MOV #CRC16,XPOLY 
JSR PC,SY NLD 
MOV R4,4(R1) 
ROMCL 
122110 
INC RG 
MOV R44 (R1) 
ROMCL 
122110 
INC RG 
MOV RG ,4(R1) 
ROMCLK 
122110 
JSR PC ,OCOR 
DATACLK, 32 
1$: Vv R5, 
2$: DATACLK,1 
~ R5,SIMBCC 
3$: 0 
4$: 0 
BCS 5$ 
JSR PC ,GETQI 
BCC 6$ 
ERROR 22 
BR 6% 
5$: JSR PC ,GETQI 
BCS 6$ 
ERROR 23 
6$: 


ROR 3% 


.  ¢ LOAD THE NO. OF THIS TEST 
; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
;MASTER CLEAR KMC11 


:R4 CONTAINS CHAR TO BE LOADED IN SILO 

:R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 
sCLEAR SOFT ae 

;LOAD POLYNOMINA 

; LOAD oo WITH 5 SYNCS, SOM SET 


:PORT4 ¢ 

T” BORD 1S INSTRUCTION, ROMCLK PC=5304 
Hy DATA 

HINGRERENT TO NEXT CHARACTER 


stants HA 
T GORD IS INSTRUCTION, ROMCLK PC=5304 
ton OUT DATA 
s INCREMENT TO NEXT CHARACTER 

*PORT4 CHAR 

:NEXT GORD 1s INSTRUCTION, ROMCLK PC=5304 


‘A 
;LOAD CHAR FOR SOFT CRC 
SHIFT BCC ONCE 

; CALCULATE othe BCC 
;SOFT SHIFT COUNT 

SOFT CHARACTER 

OLD SOFT 


BCC 
:BR IF SOFT mae LSB IS SET 
;GET H a gg RECEIVER BCC LSB 


;GET_WARDWARE RECEIVER BCC LSB 
>ERROR, BCC LSB WAS CLEAR 


;SHIFT SOFT DATA 
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BASIC RECEIVER TESTS 


Cs: 


7$: 


MOV ” oecaes 
CMP #10,R3 
2$ 


MOV R4 ,4(R1) 


R5 
CMP #400 ,R5 
1$ 


:LOAD OLD SOFT BCC 


> INCREMENT BIT COUNTER 
a FULL CHARACTER YET? 


:BR IF NO 

RESTART BIT COUNTER 

; INCREMENT DATA FOR SILO 
; DONE EYES. COUNT YET? 


>BR 
;PORT4 D 


:NEXT it INSTRUCTION, ROMCLK PC=5304 


;LOAD OUT 


> INCREMENT DAT 


:DONE BINARY PATTERN YET? 
R IF NO 


seeeaeeraeeeeereererereeeaan TEST 50 RRRRREAERAERREREERERL ARERR 

;* TRANSMITTER DDCMP CRC TEST 
s*THIS TEST TRANSMITS A FOUR CHARACTER ge WITH CRC 
;*BOTH DATA AND THE BCC ARE VERIFIED IN THE BIT 


>*WINDOW. THE FOUR CHARACTERS ARE 0,125,252,35/77 
:* THE TRANSMITTER IS CHECKED FOR GOING TO A MARK STATE AFTER THE BCC 


PARR RERERRRSSASARSSSELELEE ELE LESTE SESE EEE CECE SACRE SEES SESE SESS | 


; TEST 50 


. 
5 ROAR ERAAERERAERAAEAAAEA ATER ARE RARER ERARAAEAEREAERAERAEERERKAEEETE 


1ST50: 


12$: 


SCOPE 
MOV #50, STSTNM 
MOV #TST51,NEXT 


MSTCLR - 

;LOAD OUT DATA SILO 
MOV #B1T11,(R1) 
MOV ee 


#4 ,RO 
JSR PC,SYNLD 
JSR PC ,OUTRDY 
JSR R5 ,MESLD 


JSR PC ,EOM 
JSR PC ,OCOR 
CLR R3 
DATACLK,22 

MOVB (R4,+,R5 
MOV R5 ,R2 


>MASTER CLEAR KMC11 


SET LINE UNIT 
; LOAD POINTER 10 DATA 


OUTRDY 
: LOAD SILO WITH 4 CHAR MESS 
MESSAGE 
CHARACTERS 


: LOAD THE NO. OF THIS TEST 


sADDRESS OF 
R OF 


POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 


LOOP 


; LOAD oes CHARACTER, WITH EOM SET 


LOAD R5 vith CHAR 
;LOAD R2 WITH CHAR 


;CHECK FIRST FOUR CHARACTER MESSAGE 
IN THE BIT WINDOW (0,125,252,577) 


MOV #CRC16, XPOLY 


;LOAD POLYNOMIAL 


SEQ 0094 


= 
WManrnnw = 
“OOOO 


NOt wry 


Wn 


PEPE PEEP EEE PEPE PEED 
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0240 10537 024034 MOV R5.67$ ;LOAD SOFT CHAR FOR BCC 
031122 JSR R5,SIMBCC :CALCULATE SOFT BCC 
10 10 >SHIFT COUNT 
4 » 67$: 0 CHARACTER 
4 10$: 0 :0LD BCC 
4 01 031230 024036 MOV CALBCC,10$ 7LOAD SOFT BCC FOR NEXT SHIFT 
4 104412 0600001 64$: DATACLK. 1 :SHIFT DATA IN TO BIT WINDOW 
4 3 1 ¢ R R2 >SHIFT SOFT DATA 
4 10 BCC 65$ :BR IF A SPACE 
tb28 004737 030226 JSR PC ,GETSI LOOK AT ait wimou 
4062 103406 BCS 66$ -BR IF OK (MARK) 
4064 106006 ERROR 6 ERROR, BIT "urNbOu WAS A SPACE 
rhs 7 ed BR 66$ - CONTINUE 
4 737 030226 65$: JSR PC,GETSI “LOOK AT BIT WINDOW 
4074 103001 BCC 66$ :BR IF Ok (SPACE) 
rs 4 104006 ‘nc ERROR 6 sERROR, BIT WINDOW WAS A MARK 
41 005203 INC R3 :BUMP BIT COUNTER 
41 022703 000010 CMP #10,R3 oo FULL 8 BITS YET 
atte 001357 BNE 64$ F NO 
024110 005003 CLR R3 c CLEAR BIT COUNTER 
024112 005300 DEC RO :DEC CHARACTER COUNT 
024114 001335 BNE 128 “BR IF NOT DONE YET 
;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
24116 0613700 0231230 MOV CALBCC,RO :PUT BCC IN RO 
4122 104413 000001 68$: DATACLK,1 : SHIFT HARDWARE BCC 
41 0 ROR RO sSHIFT SOFT BCC 
4) 103005 BCC 69$ :BR IF CARRY CLEAR 
41 oy 37 030224 JSR PC,GETSI :LOOK AT BIT WINDOW 
41 3406 BCS 70% :BR IF OK (MARK) 
4140 104014 ERROR 14 ERROR, CRC URONG (SPACE) 
414 04 ae 70$ ; CON TINUE 
414 4737 030226 69$: JSR PC,GETSI :LOOK AT BIT WINDOW 
41 g 103001 BCC 70$ “BR IF OK (SPACE) 
* f 104014 ves ERROR 14 -ERROR, CRC WRONG (MARK) 
rat y O05 80s INC R3 :BUMP BIT COUNTER 
41 $ 22703 000020 CMP #20,R3 :FINISHED BCC YET? 
416 1357 BNE 68$ “BR IF NO 
4164 5003 CLR R3 *CLEAR BIT COUNTER 
:CHECK TO SEE IF TRANSMITTER IS MARKING 
S166 104413 000001 23: DATACLK 1 :CLOCK TRANSMITTER 
4172 737 030226 JSR "PC,GETSI “LOOK AT WINDOW 
4176 103401 BCS 3$ :1T SHOULD BE MARKING 
4 104024 ERROR 24 -ERROR, eit WAS A SPACE 
4 ; 03 3$: INC R3 : BUMP BIT COUNTER 
& 3 000007 CMP #7,R3 ;DONE YET 
421 1 $ :BR IF NO 
4212 104413 000010 DATACLK, 10 :GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
421 500 CLR “CLEAR BIT COUNTER 
024 10441 000001 4$: DATACLK, 1 sSHIFT OUT NEXT BIT 
024224 004737 030226 JSR PC .GETSI “LOOK AT BIT WINDOW 
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4902 0 103401 BCS +4 :BR IF IT IS A MARK 
4905 0 1 e ERROR 24 sERROR, TRANSMITTER IS NOT MARKING 
4904 005203 INC R3 :INC BIT COUNT 
4905 022703 000020 CMP #20,R3 ;DONE YET? 
4906 001366 BNE 4$ :BR IF NO 
4907 : 
4908 
4909 
4910 ,eeaeeeeteerererereeteneenae TEST §] xaeeeeeareaneaeecerereenene 
4911 S*RECEIVER DDCMP CRC TEST 
491 ;*THIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC 
491 :*AND VERIFYS CORRECT DATA RECEPTION AND BCC MATCH 
4914 :>*THE FOUR CHARACTER MESSAGE IS 0,125,252,377 
4915 5 RRA ARAAAET ETEK AEE AEAAREREAARATAEAAERAARAAAARERTAAKCARATERERE RHEE 
4916 
4917 s. TEer 41 
GONB 5 a a a a a a a 
491 steinesmeenseueuesubessesanesesesnaventenngaaenaesetsoaeveoners 
4920 0 000004 SCOPE 
4921 0 012737 MOV #51,STSTNM : LOAD THE NO. OF THIS TEST 
4922 0 012737 024446 001442 MOV #TST52,NEXT POINT TO THE START OF NEXT TEST. 
49 ;R1 CONTAINS BASE KMC11 ADDRESS 
4924 0 104410 MSTCLR :MASTER CLEAR KMC11 
4925 024 012711 MOV #B1T11,(R1) SET LINE UNIT LOOP 
49 024 012702 MOV #MESDAT,R2 ;LOAD POINTER TO DATA 
49 024274 012700 MOV #4 ,RO ;LOAD CHARACTER COUNT 
49 4300 004737 JSR PC ,SYNLD ;LOAD 2 SYNCS IN OUT SILO 
49 4 fe! JSR PC ,OUTRDY WAIT FOR OUTRDY 
49 4310 537 JSR R5,MESLD ;LOAD SILO WITH 4 CHAR MESS 
4931 8 4314 032012 MESDAT sADDRESS OF MESSAGE 
49 4316 See? 4 >NUMBER OF CHARACTERS 
&9 4320 37 JSR PC ,EOM ;LOAD GARBAGE CHARACTER, WITH EOM SET 
49 4324 004737 JSR PC ,OCOR :WAIT FOR OCOR 
4935 104413 DATACLK,114 :CLOCK DATA 
a & 004737 JSR PC, INRDY poo ht FOR INRDY 
49 4 9 194412 ROMCLK s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
49 és paige 021204 :GET IN DATA 
49 4344 016104 MOV 4(R1) RS ;PUT ‘'FOUND'' IN R4 
4940 rh tt 11 $3? MOVB = (R2) + RS ;PUT EXPECTED’ IN R5 
4941 4352 120504 CMPB R5,R4 ;COMPARE RECEIVED DATA 
GOK 4354 001401 BEQ 1$ sBR IF OK 
494 4356 104010 ERROR 10 ;DATA ERROR 
4944 4 005300 DEC RO ;DEC CHARACTER COUNT 
teas 024362 001364 BNE 3$ BR IF NOT DONE YeT 
i ;CHECK TO SEE THAT IN BCC MATCH IS SET 
1949 024 004737 JSR PC, INRDY sWALT FOR INRDY 
4950 8 4 104412 ROMCLK x D IS INSTRUCTION, ROMCLK PC=5304 
4951 4 0212 021204 :GET FIRST HALF OF CRC 
495 4 116137 MOVB 4(R1) ,STMP2 :PUT IN $TMP2 
4953 024402 042737 BIC  #177400,81MP2 CLEAR HI BYTE 
4954 4 004737 JSR PC, INRDY :WAIT FOR INRDY 
4955 104412 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
bd te 021244 021244 ; a 
495 “ 016104 MOV 4(R1),R4 ;PUT “*FOUND’’ IN R4 
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4983 024446 
4984 024450 
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49 
4987 024464 
4988 
4989 
4990 
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4992 024472 
4993 024476 
4994 8 4502 
4995 4306 
499% 451 
499 4516 
4998 45 
4999 024524 
5000 0245 
5001 0245 
38 024536 
003 024540 
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5005 4546 
B00 Os4see 
2008 034369 
024562 


aD wh ao 


Wnviw 
oooo 
wn—oO 


042704 
012705 
120504 
001401 
104015 


104412 
021204 


pg bee 
—O—- — 
MIWIPOM 
oyVnnyon™s 
thopetrs ony grr 
NNNNONS 


oS 
at 
™ 


2 


oOo 
Ww 
tw 
ou 


NMMAwN 


08-JUL-80 08:24 


000376 
000001 


000052 001202 
025546 001442 


Sains 08:24 PAGE 9 


8 
BASIC RECEIVER TESTS 


25%: 


2$: 


BIC #376 R4 

MOV wir 

CMPB RS,R4 
25$ 


ROMCLK 
021204 


;CLEAR UNWANTED BITS 
;PUT ‘EXPECTED’ IN R5 
:1S IN BCC MATCH SET? 


:IN BCC MATCH ERROR 


:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;GET LAST HALF 


seeaeeneeeteteteeereeeeeenes TEST 52 seaneeaaeenareeeearereerene 


:*DDCMP EOM FUNCTION TEST 

>*THiS TEST LOADS OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE ,EOM 
:*4 CHARACTER MESS,EOM. THE DATA STREAM IS CHECKED TO BE 

:#4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS ane VERIFYS THAT 

:*THE CHARCTERS LOADED WITH EOM SET ARE LOST 

>*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW 

>*THE FOUR CHARACTER MESSAGE IS 0,125,252,377 

i vataxiete DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED 
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18152: 


12$: 


SCOPE 

MOV #52, STSTNM 
MOV #TSTS3,NEXT 
MSTCLR 

;LOAD OUT DATA SILO 


MOV #BIT11,(R1) 
MOV > bli 


JSR PC ,EOM 
JSR RS ,MESLD 
—— 

JSR PC .EOM 
JSR PC ,OCOR 
CLR R 
DATACLK,22 

MOVB (R4)*+,R5 
MOV R5.R2 


; LOAD THE NO. OF THIS TEST 


TO THE START OF NEXT TEST. 


POINT T 
:R1 CONTAINS BASE KMC11 ADDRESS 
;MASTER CLEAR KMC11 


SET LINE UNIT LOOP 


CC 

;LOAD CHARACTER COUNT 
sLOAD 2 SYNCS IN OUT SILO 
sWAIT FOR OUTRDY 

; LOAD SILO WITH 4 CHAR MESS 

:ADDRESS OF MESSAGE 
;NUMBER OF CHARACTERS 
;LOAD GARBAGE geo HEE WITH EOM SET 
:LOAD FOUR MORE CHARACTERS 

;ADDRESS OF MESSAGE 
;NUMBER OF CHACTERS 

ET er 


:$ 

WAIT FOR OCOR 

: CLEAR ate — 
;CLOCK DAT 


LOAD R5 vith CHAR 
:LOAD R2 WITH CHAR 


sCHECK FIRST FOUR CHARACTER MESSAGE 
;IN THE SIT WINDOW (0,125,252,577) 


SEQ 0097 
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BASIC RECEIVER TESTS 


67%: 
10$: 


64%: 


65$: 


66$: 


68$: 


69$: 


70$: 


13$: 


76$: 


MOV 
MOV 
JSR 
10 





Se ee 


SEQ 0098 


;LOAD POLYNOMIAL 

;LOAD SOFT CHAR FOR BCC 
;CALCULATE SOFT BCC 
:SHIFT COUNT 

; CHARACTER 


OLD BCC 

;LOAD SOFT BCC FOR NEXT SHIFT 
;SHIFT DATA IN TO BIT WINDOW 
SHIFT SOFT DATA 


#CRC16,XPOLY 
R5,67% 
R5,SIMBCC 


SARE tS 


65$ ;BR IF A SPACE 

PC,GETSI ;LOOK AT BIT WINDOW 

66$ ;BR IF OK (MARK) 

6 sERROR, BIT WINDOW WAS A SPACE 
6 ; CONTINUE 

PC ,GETSI ;LOOK AT BIT WINDOW 


:BR IF OK (SPACE) 
6 sERROR, BIT WINDOW WAS A MARK 


3 ;BUMP BIT COUNTER 
#10,R3 DONE FULL 8 BITS YET 
4$ -BR_ IF NO 
R3 >CLEAR BIT COUNTER 
RO ;DEC CHARACTER COUNT 
12$ ;BR IF NOT DONE YET 


;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


MOV 


DATACLK 
ROR 


CALBCC,RO :PUT BCC IN RO 

1 “SHIFT HARDWARE BCC 

RO -SHIFT SOFT BCC 

69$ “BR IF CARRY CLEAR 
PC,GETSI -LOOK AT BIT WINDOW 

70$ “BR IF OK (MARK) 

14 “ERROR, CRC WRONG (SPACE) 
70% C INUE 

PC ,GETSI :LOOK AT BIT WINDOW 

70$ “BR IF OK (SPACE) 


14 sERROR, CRC WRONG (MARK) 


R3 ;BUMP BIT COUNTER 

creeks sFINISHED BCC YET? 
sCLEAR BIT COUNTER 

#4 ,RO sRESET CHARACTER COUNTER 

#MESDAT,R4G ;LOAD MESSAGE POINTER 

11% sCLR SOFT BCC 

(R4)+,R5 ;LOAD CHAR IN R5 

R5,R2 :LOAD CHAR IN R2 


;CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,577) 


;LOAD POLYNOMIAL 

;LOAD SOFT CHAR FOR BCC 
CALCULATE SOFT BCC 
;SHIFT COUNT 


: CHARACTER 


#CRC16,XPOLY 
R5,76% 
R5,SIMBCC 
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BASIC 
11§: 
73$: 


74%: 


75$: 


773: 


78$: 


79$: 


2$: 


3$: 


4$: 


AGE 100 
RECEIVER TESTS 


0 :O0LD BCC 
MOV eeemenl a ;LOAD SOFT BCC FOR NEXT SHIFT 


DATACLK, :SHIFT DATA IN TO BIT WINDOW 
RORB = R2 :SHIFT SOFT DATA 

BCC 74$ “BR IF A SPACE 

JSR PC_GETSI :LOOK AT BIT WINDOW 

BCS 75$ :BR IF OK (MARK) 

ERROR 6 “ERROR, BIT WINDOW WAS A SPACE 
BR 75$ : CONTINUE 

JSR PC,GETSI -LOOK AT BIT WINDOW 

BCC 75$ “BR IF OK (SPACE) 

ERROR 6 “ERROR, BIT WINDOW WAS A MARK 
INC R3 :BUMP BIT COUNTER 

CMP #10,R3 :DONFE FULL 8 BITS YET 

BNE 73 _sBR IF NO 

CLR R3 :CLEAR BIT COUNTER 

DEC RO “DEC CHARACTER COUNT 

BNE 13$ “BR IF NOT DONE YET 


;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
MOV CALBCC ,RO ;PUT BCC IN RO 


DATACLK,1 ; SHIFT HARDWARE BCC 

ROR R SHIFT SOFT BCC 

BCC 78$ BR IF CARRY CLEAR 

JSR PC ,GETSI :LOOK AT BIT WINDOW 

BCS 79$ >BR_ IF OK (MARK) 

ERROR 14 ERROR, CRC WRONG (SPACE) 
BR 9$ ; CONT INUE 

JSR PC ,GETSI sLOOK AT E'T WINDOW 

BCC 79% BR IF OK (SPACE) 

ERROR 14 sERROR, CRC WRONG (MARK) 
INC R3 ;BUMP BIT COUNTER 

CMP #20,R3 sFINISHED BCC YET? 

BNE 77% ;BR IF NO 

CLR R3 >CLEAR BIT COUNTER 


;CHECK TO SEE IF TRANSMITTER IS MARKING 


DATACLK, 1 >CLOCK TRANSMITTER 

JSR PC GETS! oL AT WINDOW 

cS 3$ ;1T SHOULD BE MARKING 

ERROR 24 ;ERROR, BIT WAS A SPACE 

INC R3 :BUMP BIT COUNTER 

CMP #7 ,R3 ;DONE YET 

BNE 2$ >BR IF NO 

DATACLK, 10 >GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
CLR ;CLEAR BIT COUNTER 

DATACLK, 1 ;SHIFT OUT NEXT BIT 

JSR PC GETS! ;LOOK AT BIT WINDOW 

BCS +4 :BR IF IT IS A MARK 

ERROR 24 ERROR, TRANSMITTER IS NOT MARKING 
INC R3 : BIT COUNT 

CMP #20,R5 ;DONE YET? 
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CE.P11 O8-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0100 
5126 025204 001366 BNE 4$ :BR IF NO 
$128 -CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 
51 9 “WAS RECEIVED CORRECTLY (0,125,252, 377) 
$131 025 0 104413 1 DATACLK, 1 :GET LAST BIT IN RECEIVER 
+ é 025212 012703 000004 MOV 4,23 *R3=CHARACTER COUNT 
$133 025 1 01 702 032012 MOV #MESDAT,R2 “LOAD MESSAGE POINTER IN R2 
5134 025 004737 031066 40$: JSR PC, INRDY “WAIT FOR INRDY 
5135 025 104412 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
51 9 5 021204 021204 
51 $232 016104 000004 MOV 4(R1) RG :PUT "'FOUND'' IN RG 
at 025236 112205 MOVB (R2)+,R5 :PUT “‘EXPECTED'’ IN R5 
5139 025240 120504 CMPBaRS.RG -1$ RECEIVED DATA CORRECT? 
5140 025242 001401 BEQ 41$ “BR IF YES 
5141 025244 104010 ERROR 10 =RECEIVE DATA ERROR 
3148 025246 005303 41$: DEC R3 “DEC CHARACTER COUNT 
5145 025250 001364 BNE 40$ “BR IF NOT DONE YET 
5145 :CHECK TO SEE THAT IN BCC MATCH IS SET 
5146 “AND THAT THE BCC WAS RECEIVED CORRECTLY 
5148 03 52 004737 031066 PC, INRDY sWAIT FOR INRDY 
5149 025256 104412 sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
s129 025260 021204 sGET FIRST HALF OF CRC 
151 025 $2 116137 000004 001302 4(R1),$TMP2 “PUT IN $TMP2 
3138 025270 042737 177400 001302 #177400,$TMP2  :CLEAR HI BYTE 
315 0 ; 26 004757 031066 PC, INRDY ‘WAIT FOR INRDY 
154 04412 :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
513 025 021244 
136 5 016104 0000 4(R1) RG :PUT "'FOUND'' IN R4 
313 5312 042704 000376 #376 RG “CLEAR UNWANTED BITS 
158 025 18 012705 000001 #1 Rs “PUT EXPECTED’ IN RS 
5159 025 120504 R5.RG :1S IN BCC MATCH SET? 
3160 5324 001401 50$ 
161 5 104015 si 15 :IN BCC MATCH ERROR 
3188 § 104412 :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5164 025 0212 >GET LAST HALF 
3165 5 116137 000004 001301 4(R1),STMP1+1  :PUT IN STMP1 
166 ; 737 377 001300 #377, $TMP1 :CLEAR LO BYTE 
16 30 $3737 001300 001302 TMP 1, STMP2 716 BIT BCC NOW IN STMP2 
168 0237 7 031230 001302 CALBCC,STM©2 31S IT CORRECT? 
16 1401 42¢ “BR IF OK 
317 025366 104027 27 
17 :CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
3178 “WAS RECEIVED CORRECTLY (0,125,252, 377) 
ate 5370 012703 000004 42%: MOV #4 R3 :R3=CHARACTER COUNT 
3176 5374 012708 032012 MOV #MESDAT,R2 “LOAD MESSAGE POINTER IN R2 
17 00 004737 031066 43$: JSR PC, INRDY “WAIT FOR INRDY 
5178 104412 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
51 021204 021204 
180 025410 016104 000004 MOV 4(R1) RS PUT "'F IN RG 
5181 025414 112205 MOVB = (R2)+.R5 “PUT “EXPECTED IN R5 
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BASIC RECEIVER TESTS 


44%: 


51$: 


5$: 


CMPB R5,R4 71S RECEIVED DATA CORRECT? 
BEOQ sBR IF YES 
ERROR 10 sRECEIVE DATA ERROR 
DEC R3 ;DEC CHARACTER COUNT 
43% :BR IF NOT DONE YET 


:CHECK TO SEE THAT IN BCC MATCH IS SET 
AND THAT THE BCC WAS RECEIVED CORRECTLY 


JSR PC, INRDY :WAIT FOR INRDY 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 “GET FIRST HALF OF CRC 

MOVB 4(R1),$TMP2 -PUT IN $TMP2 

BIC #177400,$TMP2  :CLEAR HI BYTE 

JSR PC, INRDY “WAIT FOR INRDY 

ROACL K :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
MOV 4(R1) RG :PUT ""FOUND'' IN R4 

BIC #376, R4 “CLEAR UNWANTED BITS 

MOV #1,R5 :PUT EXPECTED’ IN R5 

CMPB sa RG -1S IN BCC MATCH SET? 

BEO 51$ 

ERROR 15 :IN BCC MATCH ERROR 

ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 -GET LAST HALF 

MOVB 4(R1),$TMP1+1  <:PUT IN $TMP1 

BIC #377, $TMP1 “CLEAR LO BYTE 

BIS STmPi,STMP2 :16 BIT BCC NOW IN STMP2 

CMP CALBCC,$TMP2 :1S IT CORRECT? 

BEQ 5$ “BR 

ERROR 27 


skeeeekeeteteeeeatetareeeaaen TEST 55 seaaaeeeaeeeeeeeeeeeeneeane 
> *DDCMP EOM FUNCTION TEST 

s*THIS TEST LOADS OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE,EOM 

: e4 CHAR MESS,EOM. THE DATA STREAM IS CHECKED TO BE 

:*4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT 

;*THE CHARCTERS LOADED WITH EOM SET ARE LOST 

s*ALSO THAT THE CHAR LOADED WITH SOM IS NOT IN THE BCC 

;*ALL DATA AND BCC°S ARE CHECKED IN THE BIT WINDOW 

: CHARACTER MESSAGE IS 0,125,252,377 

s*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED 
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; TEST 53 


e 
ERE AAAAAAAAAATAAAAAAATAAAAAARAAAAAAAAAAARATAAAAAAEAEARERAAAAAEERE 


1ST53: 


SCOPE 

MOV #53,STSTNM ; LOAD THE NO. OF THIS TEST 

MOV #TS154 ,WEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 

MSTCLR ;MASTER CLEAR KMC11 


SEQ 0101 
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BASIC RECEIVER TESTS 


12$: 


67$: 
10$: 


64$: 


65$: 


66$: 


68$: 


;LOAD OUT DATA SILO 


MOV #B1T11,(R1) 
MOV SMESDAT ,R4 
CLR 0$ 

MOV #4 RO 

JSR PC,SYNLD 
JSR PC ,OUTRDY 
JSR -MESL 
_— 

JSR PC ,EOM 

JSR PC SOM 

JSR R5 ,MESLD 
oo 

JSR PC ,EOM 

JSR PC ,OCOR 
CLR R3 
DATACLK,22 

MOVB (R4)+,R5 
MOV »R2 


7 SET LINE UNIT LOOP 
> LOAD 4 ie 16 DATA 
OFT BCC 


“LOAD CHARACTER COUNT 


; LOAD : x an IN OUT SILO 
:WAIT FOR OUTRDY 


;LOAD SILO WITH 4 CHAR MESS 
; ADDRESS OF MESSAGE 
R OF CHARACTERS 

:LOAD GARBAGE CHARACTER, WITH EOM SET 
: LOAD GARBAGE CHAR WITH SOM SET 

;LOAD FOUR MORE CHARACTERS 

:ADDRESS OF MESSAGE 

eet Ec OF CHACTERS 


;>SET EOM 

;WAIT FOR OCOR 
;CLEAR BIT COUNTER 
>CLOCK DATA 

:LOAD R5 WITH CHAR 
sLOAD R2 WITH CHAR 


;CHECK FIRST FOUR CHARACTER MESSAGE 
IN THE BIT WINDOW (0,125,252,377) 


; SH 

; CHARACTER 
OLD BCC 

;LOAD SOFT BCC FOR NEXT SHIFT 


>LOAD POLYNOMIAL 
;LOAD SOFT CHAR FOR BCC 
Be ges SOFT BCC 


COUNT 


SHIFT DATA ee ig BIT WINDOW 
:SHIFT SOFT DAT 

:BR IF A SPAC 

;LOOK AT BIT WINDOW 

BR IF OK (MARK) 

athe WINDOW WAS A SPACE 


; CONTI 
;LOOK AT BIT WINDOW 
:BR IF OK (SPACE) 

sERROR, BIT WINDOW WAS 


A MARK 


;BUMP BIT COUNTER 
ois ae 8 BITS YET 


NO 
:CLEAR BIT COUNTER 
DEC CHARACTER COUNT 
BR IF NOT DONE YET 


>CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


MOV #CRC16,XPOLY 
MOV R5, ; 
JSR R5;SIMBCC 
10 

0 

MOV CALBCC, 108 
DATACLK, 1 
RORB oR 

BCC 65$ 

JSR PC,GETS! 
BCS 66$ 

ERROR 6 

BR 66$ 

JSR PC, GETSI 
BCC 66$ 

E é 

INC 3 

CMP #10,R3 

BNE 64$ 

CLR R3 

DEC RO 

BNE 12% 

MOV CALBCC.RO 
DATACLK. 1 

ROR 


;PUT BCC IN RO 
>SHIFT HARDWARE BCC 
:SHIFT SOFT BCC 


SEQ 0102 
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BASIC RECEIVER TESTS 


69$: 


70$: 


32$: 


30$: 


31$: 


13$: 


76$: 
11$: 


73$: 


74$: 


PA 


BCC 69% -BR IF CARRY CLEAR 
JSR PC,GETSI [LOOK AT BIT WINDOW 

BCS 70$ “BR IF OK (MARK) 

ERROR 14 >ERROR, CRC WRONG (SPACE) 
BR 708 : CONT INUE 

JSR PC GETS =LOOK AT BIT WINDOW 

BCC 70$ “BR IF OK (SPACE) 

ERROR 14 “ERROR, CRC WRONG (MARK) 
INC R3 :BUMP BIT COUNTER 

CMP #20,R3 :FINISHED BCC YET? 

BNE 68$ -BR IF NO 

CLR R3 -CLEAR BIT COUNTER 


;CHECK CHARACTER LOADED WITH SOM (000), IN THE BIT WINDOW 


CLR RS : CHARACTER LOADED WITH SOM 
V RS ,R2 “LOAD R2 WITH CHAR 

DATACLK, “CLOCK TRANSMITTER 

R 2 :SHIFT SOFT DATA 

BCC 0$ “BR IF SPACE 

JSR PC,GETSI :LOOK AT BIT WINDOW 

BCS 31$ “BR IF OK (MARK) 

ERROR 6 “ERROR,BIT WINDOW WAS A SPACE 

BR 31$ : CONT INUE 

JSR PC,GETSI :LOOK AT BIT WINDOW 

BCC 31$ >BR IF OK (SPACE) 

ERROR “ERROR,BIT WINDOW WAS A MARK 

INC R3 :BUMP BIT C 

CMP #10,R3 “DONE CHARACTER YET? 

BNE 32$ “BR IF NO 

CLR R3 *RESET BIT COUNTER 

MOV #4 RO “RESET CHARACTER COUNTER 

MOV #MESDAT,R4 ‘LOAD MESSAGE POINTER 

CLR 11$ “CLR SOFT BCC 

MOVB  (R4)+,R5 “LOAD CHAR IN RS 

MOV RS ,R2 “LOAD CHAR IN R2 


CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377) 


MOV #CRCI6,XPOLY § ;LOAD POLYNOMIAL 
MOV R5,76$ sLOAD SOFT CHAR FOR BCC 

JSR R5,SIMBCC :CALCULATE SOFT BCC 

10 >SHIFT COUNT 

0 : CHARACTER 

MOV CALBCC,11$ *LOAD SOFT BCC FOR NEXT SHIFT 
DATACLK, 1 =SHIFT DATA IN TO BIT WINDOW 
RORB >SHIFT SOFT DATA 

BCC 743 : IF A SPACE 

JSR PC GETSI sLOOK AT BIT WINDOW 

BCS 75$ -BR IF OK (MARK) 

ERROR 6 -ERROR, BIT WINDOW WAS A SPACE 
BR 75$ > CONTINUE 

JSR PC GETSI -LOOK AT BIT WINDOW 

BCC 75$ “BR IF OK (SPACE) 





SEQ 0103 


—— 
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CZKCE.P11 08-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0104 
; : 0 re \¢ 104006 2 ERROR 6 :ERROR, BIT WINDOW WAS A MARK 
1 5203 INC R3 :BUMP BIT COUNTER 
5 3g 6 8 303 000010 CMP #10,R3 :DONE FULL 8 BITS YET 
; 6224 1357 BNE 73$ -BR IF NO 
5 6 5003 CLR R3 :CLEAR BIT COUNTER 
5 6 5 DEC RO :DEC CHARACTER COUNT 
5 6252 001335 BNE 13$ :BR IF NOT DONE YET 
3 $9 :CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
re 6234 013700 031230 MOV CALBCC,RO :PUT BCC IN RO 
5 ¢ 6240 104413 000001 77$: DATACLK,1 :SHIFT HARDWARE BCC 
ty 6244 ROR RO :SHIFT SOFT BCC 
6 6 <8 1 5 BCC 78$ :BR IF CARRY CLEAR 
ogee ; 7 030226 JSR PC,GETSI LOOK AT BIT WINDOW 
6 4 Rrare BCS 79$ :BR IF OK (MARK) 
; 56 104014 ERROR 14 ERROR, CRC WRONG (SPACE) 
368 04 BR 79$ : CONTINUE 
bS 6 737 030226 783: JSR PC,GETSI LOOK AT BIT WINDOW 
0 026 103001 BCC 79$ “BR IF OK (SPACE) 
a 6 ; 104014 ‘ie ERROR 14 ERROR, CRC WRONG (MARK) 
338 4 is 005205 INC R3 :BUMP BIT COUNTER 
5374 ° 74 022703 000020 CMP #20,R3 sFINISHED BCC YET? 
75 001357 BNE 77$ :BR IF NO 
o6 6302 005003 CLR Ra CLEAR BIT COUNTER 
18 :CHECK TO SEE IF TRANSMITTER IS MARKING 
$8C 6304 104413 0001 2$: DATACLK, 1 sCLOCK TRANSMITTER 
+4 10 004737 030226 JSR PC,GETSI sLOOK AT WINDOW 
+1 14 103401 BCS :I1T SHOULD BE MARKING 
5E 16 104024 ERROR 24 ERROR, BIT WAS A SPACE 
+ 3603 3$: INC R3 :BUMP BIT COUNTER 
85 026 2703 000007 CAP A7.RS :DONE YET 
i 104413 000010 DATACLK, 10 :GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
BE 500 CL Q :CLEAR BIT COUNTER 
104413 000001 4$: DATACLK, 1 :SHIFT OUT NEXT BIT 
1c 6 737 030226 JSR PC,GETSI sLOOK AT BIT WINDOW 
9 3401 +4 :BR IF IT IS A MARK 
4 : 1 ose ERROR 24 ERROR, TRANSMITTER IS NOT MARKING 
g 5203 INC a3 : INC BIT COUNT 
ee 6354 peeeee 000020 CMP #20,R3 sDONE YET? 
6 1366 BNE 4$ :BR IF NO 
:CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 


sWAS RECEIVED CORRECTLY (0,125,252,3577) 


000001 DATACLK, 1 >GET LAST BIT IN RECEIVER 
000004 MOV #4 ,R3 ;R3=CHARACT 
032012 MOV #MESDAT ,R2 sLOAD MESSAGE POINTER IN RZ 
031066 40$: JSR PC, INRDY s;WAIT FOR INRDY 

104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
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B 104 000004 4(R1) RE >PUT “‘FOUND"’ IN 
(R2)+ RS :PUT "EXPECTED" IN R RS 
4 4 RS RS 21S RECEIVED DATA CORRECT? 
1 1401 BR IF YES 
1 H RECEIVE DATA ERROR 
1 41%: DEC 3+ CHARACTER COUNT 
} 6 1 IF NOT DONE YET 






1 :CHECK TO SEE THAT IN BCC MATCH IS SET 
“AND THAT THE BCC WAS RECEIVED CORRECTLY 
3 37 031066 JSR PC, INRDY :WAIT FOR INRDY 
1 12 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 “GET FIRST HALF OF CRC 
7 000004 001302 MOVB 4(R1).STMPZ >PUT IN $TMP2 
7 177600 001302 BIC #177400,$TMP2 :CLEAR HI BYTE 
7 031066 JSR PC, INRDY “WAIT FOR INRDY 
12 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
é 44 021244 
MOV &(R1) RG PUT “FOUND” IN RG 
¢ 000376 BIC #376 RG >CLEAR UNWANTED BITS 
§ 000001 MOV wir :PUT "EXPECTED'’ IN RS 
CMPB aR. .RG -1S IN BCC MATCH SET? 
01 BEOQ 508 
‘on ERROR 15 ;IN BCC MATCH ERROR 
2 aR og 1S INSTRUCTION, ROMCLK PC=5304 
; 04 001301 :PUT IN STHPT 
5 7 000377 001300 “CLEAR LO BYTE 
7 001 00 001302 TMP1, STMP2 :16 BIT BCC NOW IN STMP2 
7 031230 001302 CMP CALBCC,STMP2 :1S IT CORRECT 
1 BEO 45$ -BR IF OK 
; ? ERROR 27 
iY ;CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000) 
tf 44 004737 031066 45$: JSR PC, INRDY :WAIT FOR INRDY 
44 412 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
445 12 021204 3GET RECEIVE DAT 
4 104 000004 MOV &(R1) RS :PUT “"FOUND’’ IN RG 
44 § CLR R5 sPUT EXPECTED’ IN R5 
4 1 CPB sa. RG 21S RECEVIED DATA CORRECT? 
4 1401 BEQ 42$ “BR IF YES 
0 6566 104010 ERROR 10 >RECEIVE DATA ERROR 
; | :CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
:WAS RECEIVED CORRECTLY (0,125,252, 377) 
§ 026570 137 3 000004 42%: MOV R3 :R3=CHARACTER COUNT 
574 01 032012 MOV oRESDAT. R2 *LOAD MESSAGE POINTER IN R2 
737 031066 433: JSR PC, INRDY “WAIT FOR INRDY 
1 aui2 ROACLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
60 $1 000004 MOV &(R1) RG =PUT “"FOUND’’ 
5461 026614 112205 MOVB ‘R2)+.RS “PUT “EXPECTED” IN RS 
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026616 120504 cMPs R5,R4 z1S RECEIVED DATA CORRECT? 
¢ 6% 8 BS rhe BEOQ 44$ “BR IF YES 
66 104 49 ERROR 10 RECEIVE DATA ERROR 
5 6624 005 44%: DEC R3 :DEC CHARACTER COUNT 
026626 001364 BNE 43% -BR IF NOT DONE YET 
;CHECK TO SEE THAT IN BCC MATCH IS SET 
; ;AND THAT THE 8CC WAS RECEIVED CORRECTLY 
1 0266 004737 031066 JSR PC, INRDY :WAIT FOR INRDY 
¢ 0266 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
0266 021204 021204 :GET FIRST HALF OF CRC 
4 6640 116137 000004 0601302 MOVB 4(R1),STMP2 sPUT IN STMP2 
$646 0427 7 177600 001302 BIC #177400 _ STHP2 “CLEAR HI BYTE 
54 737 031066 JSR PC, INR sWAIT FOR INRDY 
104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
21264 021244 
16104 000004 MOV 4(R1),R4 PUT “"FOUND'' IN R4 
8 6670 704 000376 BIC #376 RG CLEAR UNWANTED BITS 
6674 012705 000001 MOV #1 RS :PUT EXPECTED’ IN RS 
$ 6 120504 CMPB R5,R4 :1S IN BCC MATCH SET? 
¢ 001401 BEQ 51$ 
re , 104015 sis ERROR 15 : IN BCC MATCH ERROR 
oy 104412 ROMCLK :NEXT WORD iS. INSTRUCTION, ROMCLK PC=5304 
671 ates 021204 2 LAST H 
6712 116137 000004 001301 MOVB 4(R1),STMP1+1 T IN STHPT. 
of at 00377 001300 BIC #377, $TMP1 CLEAR LO BYTE 
53737 001300 001302 BIS sTmpi, STMP2 :16 BIT BCC NOW IN STMP2 
67 23737 031230 001302 CMP CALBCC, $TMP2 -1§ IT CORRECT? 
6742 001401 BEQ 5$ :BR IF OK 
6744 104027 ERROR 27 
6746 5$: 
use 0 TEST 54 xeeaeeaeeeeecaeeeeeeereeene 
i :*EMPTY SILO TEST 
s*LOAD SILO WITH 2 SYNCS, 4 CHAR MESSAGE, SINGLE CLOCK 
3300 s*#UNTIL THE SILO is EMPTY, LOAD 4 MORE CHARACTERS IN THE 
1 7*SILO. GIVE MORE TICKS, AND VERIFY THAT ONLY THE FIRST 
; 34 CHARACTER MESSAGE WAS RECEIVED AND THAT RTS IS CLEAR 
) -REASREKTETATLAEAKAAAALAAAAACAEARARAATAEAAAREKAAERAARAAERAERERAARAEREEAKRAREE 
505 ; TEST 54 
PPITITITITI TILT ITI ITT TTL TTI TILITIiTiTiiTiTiTiTiTiTiTiititiiiititite 
674 TST54: SCOPE 
675 Oise 7 000054 001202 MOV #54, STSTNM : LOAD THE NO. OF THIS TEST 
0 6756 012737 027200 001442 MOV #TS155 NEXT : POINT TO THE START OF NEXT TEST. 
1 :R1 CONTAINS BASE KMC11 ADDRESS 
¢ 764 104410 MSTCLR MASTER CLEAR KMC11 
166 + 711 995000 MOV #B1T11,(R1) SET LINE UNIT LOOP 
4 7 12702 2012 MOV #MESDAT,R2 =R2 POINTS TO MESSAGE 
5 776 «20127 000004 MOV #4 ,R0 >RO = CHAR COUNT 
$ 7 031374 JSR PC, SYNLD ; LOAD SILO WITH TWO SYNCS 
027006 737 030412 JSR PC ,OUTRDY :WAIT FOR OUTRODY 
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2318 027012 905337 031530 JSR R5S,MESLD ;LOAD MESSAGE IN SILO 
551 8 701 012 MESDAT START OF MESSAGE 
5520 7 4 :CHARACTER COUNT 
§$21 7 7 030260 JSR PC,OCOR :WAIT FOR OCOR 
55 ; 7 $ Seals asp F DATACLK, | :CLOCK DATA (EMPTY SILO) 
32 7 $37 0315 JSR R5,MESLD :PUT MORE CHARACTERS IN SILO 
£2 ; A 012 “nel 
38 $ 7 7 030260 JSR PC,OCOR 
55 027 104413 000005 DATACLK, 5 :CLOCK UNTIL RTS IS CLEARED 
§528 027052 1046412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5529 027054 021764 021264 :GET RTS 
33 0 56 bac 8) 000040 000004 it  hbetaeale sis it CLEAR? 
55 ¢ 7 104034 ERROR 34 sERROR, RTS NOT CLEAR 
55 7 104413 000041 5$: DATACLK, 41 sCLOCK XMITTER SOME MORE 
55 7074 004737 031066 1$: JSR PC, INRDY ;0K LETS CHECK WHAT WAS RECEIVED 
5535 71 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
55 7102 021204 021204 ;GET RECEIVE DATA 
55 7104 016104 000004 MOV 4(R1),R4 -PUT IT IN RG 
55 ie BS S344 MOVB (R2)+,R5 :R5 = ‘‘EXPECTED"' 
a a ee ids tang, commeer 
Hae 027116 104010 ERROR 10 :DATA ERROR 

ak 71 005300 23: DEC RO sDEC CHAR COUNT 

54 71 Re BNE 1$ :BR IF NOT DONE YET 

544 7126 4737 031066 3$: JSR PC, INRDY sWAIT FOR INRDY 

42 71 Ages he ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

$ 71 021204 021204 :GET RECEIVE DATA 

54 71 $f Bh 000004 MOV 4(R1) RS :PUT IT IN ‘FOUND’ | 

a 7140 012705 000377 MOV #377,R5 :R5 = “EXPECTED” 

$83 atlee pieot ‘arn Snr ia all 

33 71 8 104010 ERROR 10 :ERROR, TRANSMITTER DID NOT ABORT 

326 71 004737 031066 4$: JSR PC, INRDY :WAIT FOR INRDY 

5 7156 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
ee 7160 021204 021204 :GET RECEIVE DATA 

555 7162 016104 000004 MOV 4(R1) RS  gPUT IT IN ""FOUND' 

$26 rie 012705 000377 MOV #377,R5 :RS = “EXPECTED 

$8 SSrI7e ootco sre Nae iproogte 2” 

559 6 7176 104010 ERROR 10 sERROR, TRANSMITTER DID NOT ABORT 

+ 027200 10$: 
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“*HALF DUPLEX TEST 


POP FUSE FI ST SA STOO 
we 


565 :*SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A 
306 :*MESSAGE. VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR 

56 ST RAAAAAAA TAS AAA ARATE TEA AAAAAAAEAAEKETAAEHRERAARARRAKEREAEEAE EES 
571 + eeeeeeeneeneeeeteeetetererereteteteeteneeeeeeeeeereneneneneneet 

378 027200 000004 TST55: SCOPE 

$73 027202 012737 000055 001202 MOV #55, S1TSTNM > LOAD THE NO. OF THIS TEST 





ee 
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5574 027210 012737 027316 001442 MOV #TSTS6.NEXKT POINT TO THE START OF NEXT TEST. 
5575 :R1 CONTAINS BASE KMC11 ADDRESS 
2278 027 48 104410 MSTCLR “MASTER CLEAR KMC11 
5577 027 012702 000012 MOV #12,R2 :SAVE R2 FOR TYPEOUT 
5578 027224 4 711 004000 MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
5579 027 12761 000020 000004 MOV #B1T4,4(R1) ;LOAD PORT4 
5580 027 10441 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5581 7240 12211 122113 : SET H/D BIT 
55 ; 724 pee 031374 JSR PC,SYNLD ;LOAD 2 SYNCS 
55 7 rH 737 030412 JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
55 725 4 PF 7 031530 JSR RS,MESLD ;LOAD 4 CHAR MESSAGE 
5585 7256 032012 MESDAT ADDRESS OF MESSAGE 
4 + 8 7568 ;CHARACTER COUNT 
558 7262 004737 030269 SR PC ,OCOR sWAIT FOR OCOR | 
Ht + 027 $8 104413 000073 DATACLK, 73 7SEND MESSAGE 
5589 027 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5590 027274 021244 021244 ;READ LU-12 
5591 027276 016104 000004 MOV 4(R1),R4 :PUT "“FOUND'' IN R4 
3336 027302 042704 000257 BIC #257,R4 ;CLEAR UNWANTED BITS 
5593 027 005005 CLR R5 3R5 = “‘EXPEC : 
5594 027310 120504 CMPB R5,R4 Sey AND IN-RDY SHOULD BE CLEAR 
5595 027312 001401 BEQ 1$ “BR IF 
5596 027314 104035 ERROR 35 ;ERROR BOTH ARE NOT CLEAR 
5597 027316 1$: 
5598 
5599 
5600 seekeeeeeeteeereneerereeeaeee TEST $6 seceareraaeeeeceeeearenenns 
601 ;*DDCMP CABLE DATA TEST 
602 :*THIS TEST LOADS OUT SILO WITH THE brow yd 
5605 :*4 SYNCS,16 CHAR,EOM,16 CHAR,EOM,16 CHAR,EOM 
5604 > e THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO 
5605 ;*THE DATA IS TRANSMITTED QVER THE CABLE USING THE INTERNAL CLOCK 
5606 s*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 
5607 : *LOOP-BA CK CONNECTOR MUST BE ON TO RUN THIS TEST 
5608 SRRAAASAREAAEEAATERAE EERE ARAAAAARAAAEE RATERS 
5609 
; TEST 56 
s ReeeeeneeneenneeeeereReeeeeeteeeeeeeeeeeeeeneteeeeeeeeeneeeees 
5 7316 30000 TST56: SCOPE 
7320 012737 000056 001202 MOV #56, $STSTNM : . THE NO. OF THIS TEST 
7326 012737 027706 001442 MOV #1S157, NEXT POINT TO THE START OF NEXT TEST. 
sR1 CONTAINS BASE KMC11 ADDRESS 
027334 104410 MSTCLR >MASTER CLEAR KMC11 
7336 032737 040000 002050 BIT #BI1T14,STAT1 : SKIP TEST IF NO 
7344 Edy BEQ ;LOOPBACK CONNECTOR ON 
7 12711 a3igre MOV #B1T11,(R1) SET LINE UNIT LOOP 
7 737 «03137 JSR PC,SYNLD ; LOAD 2 SYNCS 
7? 737 «203137 ; JSR PC,SYNLD ;LOAD 2 MORE SYNCS 
7 12737 asvee 031226 MOV #CRC16,XPOLY * LOAD POLYNOMIAL FOR SOFT CRC CALC 
7 7 0 oase CLR 6$ > CLEAR OLD BCC 
7374 1 3 0 MOV #16. ,R3 :CMARACTER COUNT 
y's 127 ¢ 032016 MOV #FLTDAT,R2 sR2= POINTER 
7404 11 027416 7$: MOVB =: (R2) +, 5$ [LOAD CHAR FOR SOFT BCC CALC. 
7410 004537 031122 JSR R5,SIMBCC sCALC SOFT BCC 
7414 000010 10 SHIFT COUNT 
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761 5$: 0 : CHARACTER 
74 6$: 0 :0LD BCC 
74 1 031230 027420 MOV CALBCC.6$% LOAD OLD BCC 
74 5303 DEC R3 :DEC COUNT 
74 001 7$ :BR IF NOT DONE YET 
74 7 031530 JSR R5 .MESLD LOAD SILO 
re 1 FLTDAT :MESSAGE ADDRESS 
764 16. : CHARACTER COUNT 
7664 031504 JSR PC,EOM :LOAD AN EOM 

031530 JSR RS ,MESLD : 


;LOAD SILO 
MESSAGE ADDRESS 
> CHARACTER COUNT 
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PC ,EOM ;LOAD AN EOM 
RS ,MESLD LOAD SILO 
MESSAGE ADDRESS 


5645 . : CHARACTER COUNT 
g006 031504 JSR PC .EOA :LOAD AN EOM 
564 7 030260 JSR PC,OCOR WAIT FOR OCOR 
yet ee seid CLR (R1) ;CLEAR LINE UNIT LOOP 
64 7 1 00 000003 MOV #3,R0 :RO = MESSAGE COUNT 
650 if 1270 20 MOV #16.,R3 :R3= CHARACTER COUNT 
651 751 1 96 2016 MOV #FLTDAT,R2 ;LOAD MESSAGE POINTER IN R2 
e038 75 7 031066 JSR PC, INRDY :WAIT FOR INRDY 
65 75 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5654 75 Pn 021204 :GET DATA FROM IN SILO 
2 5 75 | 000004 MOV 46(R1) RS :PUT CHARACTER IN ‘‘FOUND'' 
6 ° 7 112205 MOVB (R2)+,R5 PUT “‘EXPECTED’’ IN R5 
9 , 1 viet CMPB R5,R4 ;1S RECEIVED DATA CORRECT 
: 1401 BEO 23 :BR IF OK 
rt: eee 104025 ERROR 25 ;DATA ERROR 
ree 7548 tt DEC R3 :DEC CHARACTER COUNT 
; 755 1 $s BNE i$ ;BR IF NOT DONE THIS MESSAGE 
oe; 7552 012703 000020 MOV #16. ,R3 sRESET CHARACTER COUNT 
665 :CHECK 7° SEE THAT IN BCC MATCH IS SET 
S667 AND THA! THE BCC WAS RECEIVED CORRECTLY 
068 004737 031066 JSR PC, INRDY WAIT FOR INRDY 
o¢ 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
6 9 0 13 021204 GET FIRST HALF OF CRC 
67 1 : 7 990006 001302 MOVB 4(R1) , STMP2 :PUT IN STMP2 
67¢ 42? 7? 177400 001302 BIC #177400,$TMP2  :CLEAR HI BYTE 
67 737 031066 JSR PC, INRDY WAIT FOR INRDY 
74 104412 CLK >NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
75 1244 021244 
7 1 we 000004 MOV 4(R1),R4 :PuT **FOUND’’ IN R4 
7 000376 BIC #376 ,R4 CLEAR UNWANTED BITS 
78 12705 000001 MOV #1 R5 :PUT EXPECTED’ IN RS 
120504 CMPB R5,R4 -1S IN BCC MATCH SET? 
? 1401 BEQ 256 
1 . 104015 ERROR 15 : IN BCC MATCH ERROR 
104412 ROMCLK INEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
ret e A's 021204 GET LAST HALF 
685 116137 000004 001301 MOVB 4(R1) ,SIMP1+¢1 -:PUT IN STMP1 
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5686 027646 042737 st TM 001300 BIC #377, STHP1 sCLEAR LO BYTE 

5687 7654 055737 001 001302 BiS STMP1 STMP2 >16 BIT BCC NOW IN STMP2 

5 he 73 025737 031230 001302 CMP CALBCC ,STMP2 21S IT CORRECT? 

5689 0276 bps BEQ 4s :BR IF OK 

690 7672 1064027 ERROR 27 

691 A 1h 012702 032016 4$: MOV #FLTDAT,R2 sRESET MESSAGE POINTER 

7700 005300 DEC RO :DECREMENT COUNTER 

5695 027702 001307 BNE 1$ ;BR IF NOT DONE 

soRe 027704 104420 3$: ADVANCE ; ADVANCE TO NEXT TEST 

569 

569 seeeeaaeereteeenececetenenae TEST 57 aenatanentanneeaeereeerener 
5698 >*DDCMP CABLE DATA TEST 

5699 >*THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 

5700 | #4 SYNCS,59 DATA CHARACTERS,EOM WITH GARBAGE CHARACTER 

5701 ;*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK 
3786 ;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 

57 ;*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 

§704 2 RRERERAEREREAEEEAAEE EERE AERA AAARERAAARRREHERRAAARRERE ERE EEE 
5705 
g7Re ;. VES! 57 
5708 PPETTITITITITI TTI TITITITI TTT TTT TTT TTT Titiiiiiiiriiiiiiiiiti 
gi98 027706 000004 TSTS7: SCOPE 

710 54 012737 000057 001202 MOV #57,STSTNM ; LOAD THE NO. OF THIS TEST 
5711 027716 012737 003662 001442 MOV #SEOP NEXT ; POINT TO THE END OF PASS HANDLER. 
Brig ;R1 CONTAINS BASE KMC11 ADDRESS 
eft 193519 MSTCLR MASTER CLEAR KMC11 

714 052737 040000 002050 BiT #B1T14,STAT1 SKIP TEST IF NO 
5715 001533 BEQ 3$ ;LOOPBACK CONNECTOR ON 

aig 0 012711 004000 MOV #B1T11,(R1) SET LINE UNIT LOOP 

71 Beee 7 031374 JSR PC,SYNLD ;LOAD 2 SYNCS 

ay 737 031374 JSR PC,SYNLD ;LOAD 2 MORE SYNCS 
571 eee 7 ASoosc 031226 MOV #CRC16,XPOLY ;LOAD POLYNOMIAL FOR SOFT CRC CALC 
5720 44 037 030010 CLR $ :CLEAR OLD BCC 
5721 12703 eet MOV #59. ,R3 ; CHARACTER COUNT 
57 ¢ 8 0127 é 032012 MOV #MESDAT ,R2 :R2= POINTER | 
57 11 030006 7$:  MOVB (R2)+,5$ LOAD CHAR FOR SOFT BCC CALC. 

Pods ? 031122 JSR R5,SIMBCC CALC SOFT BCC 

725 10 10 SHIFT COUNT 

? $ 5$: 0 ; CHARACTER 

7 6$: 0 :0LD BCL 
HA o 031230 030010 MOV CALBCC 6% LOAD OLD BCC 

? 303 DEC R3 :DEC COUNT 
37 1 BNE 7$ ;BR IF NOT DONE YET 

731 537 031530 JSR RS ,MESLD LOAD SILO 
57 1 MESDAT sMESSAGE ADDRESS 

7 7 . ; CHARAC 

7 ; 031504 JSR PC ,EOM ;LOAD AN EOM 

735 737 030260 JSR PC ,OCOR ;WAIT FOR OCOR 

? 3011 CLR (ri) ;CLEAR LINE UNIT LOOP 

57 1$ 000075 MOV #59. ,RO ;RO= CHARACTER COUNT 

? 1 6 032012 MOV #MESDAT ,R2 ;LOAD MESSAGE POINTER IN R2 

7 7 031066 1$: JSR PC, INRDY ;WAIT FOR INRDY 

740 104412 ROMCLK ;NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
5741 021204 021204 >GET DATA FROM IN SILO 
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S708 0 016104 000004 MOV 4(R1) RS ;PUT CHARACTER IN ‘‘FOUND"’ 
574 : 136203 MOVB (R2)+,R5 :PUT ‘EXPECTED’ IN RS 
5744 74 120504 CMPB R5,R4 71S RECEIVED DATA CORRFCT 
5745 030076 001401 BEQ 23 7BR IF OK 
Ls 0 + 104025 - ERROR 25 DATA ERROR 
5748 $ 65 005300 DEC RO :DECREMENT COUNTER 
eb 030104 001364 BNE 1$ sBR IF NOT DONE 
5751 ;CHECK TO SEE THAT IN BCC MATCH IS SET 
re :AND THAT THE BCC WAS RECEIVED CORRECTLY 
5754 030106 004737 031066 JSR PC, INRDY ;WAIT FOR INRDY 
5755 030112 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
e726 030114 021204 021204 :GET FIRST HALF OF CRC 
5757 030116 116137 000004 001302 MOVB 4(R1) ,STMP2 :PUT IN $TMP2 
$758 030124 042737 177400 001302 BIC #177400,$TMP2  :CLEAR HI BYTE 
5759 0301352 004737 031066 JSR PC, INRDY sWAIT FOR INRDY 
5760 0301 104412 ROMCLK 7NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5761 030140 021244 021244 
376¢ 030142 grgies 000004 MOV 4(R1) RS PUT ‘"FOUND’’ IN RG 
576 peores 042704 000376 BIC #376,R4 :CLEAR UNWANTED BITS 
5764 0350152 012705 000001 MOV wi Rs ;PUT ‘EXPECTED’ IN RS 
5765 0 Fs 120504 CMPB R5,R4 :1S IN BCC MATCH SET? 
g708 0201 001401 BEQ 25$ 
5767 030162 104015 ERROR 15 :IN BCC MATCH ERROR 
a 164 258: 
769 1 Ages 1? ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5770 1 0 He 021204 :GET LAST HALF 
5771 0301 116137 000004 001301 MOVB 4(R1),$TMP1+1 -:PUT IN S$TMP1 
5772 030176 ef tt 000377 001300 BIC #377,$TMP1 :CLEAR LO BYTE 
5773 030204 053737 001300 001302 BIS STMP1,STMP2 316 BIT BCC NOW IN $STMP2 
A. 0 38 023737 031230 001302 CMP CALBCC .STMP2 :1S IT CORRECT? 
775 +O 001401 BEG 3$ :BR IF OK 
g776 ts 2 104027 ERROR 27 
Ads 030224 104420 3$: ADVANCE : ADVANCE TO NEXT TEST 
5779 
5780 ; SUBROUTINES 
5781 j coworecesee 
gree 
$783 030226 GETS! 
HA sTHIS SUBROUTINE READS LU 17, AND PUTS IT INTO NITCH. 
HA 5 sNITCH IS ROTATED LEFT UNTILL THE SI BIT IS IN CARRY 
ae 030226 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
7 021 021364 :PORT4 LU 17 
7 017737 151636 030256 MOV @KMPO4 ,NITCH ;STORE LU 17 
4 106137 030256 ROLB NITCH 
791 44 106137 030256 ROLB NITCH 
378e 50 106137 030256 ROLB NITCH :PUT SI IN THE CARRY BIT 
579 4 000207 RTS PC 
579% 256 000000 NITCH: 0 
ar 
2738 030260 OCOR: 
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18: 


OUTRDY: 


18: 


23: 


CHAR: 
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24 SUBROUTINES 


eee epee an -_—— -— 


THIS SUBROUTINE SPINS ON OCOR 


#B11T4 ,aKxMPOs 
OcOR 


PC 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORTS LU 17 
71S OCD SET? 


IF NO 
OK OCOR IS SET, GO BACK 


THIS SUBROUNTINE LOADS THE SILO WITH THE NUMBER OF SYNC 


; CHARACTERS PASSED TO IT IN THE 


WORD AFTER THE JSR CALL 


AND A NON-SYNC CHARACTER (301) 


a(SP)+,S$TMPO 
#2,-(SP) 
#26,4(R1) 


PC ,OUTRDY 
#1,4(R1) 


#26,4(R1) 


#301 ,4(R1) 


PC ,OCOR 
PC 


;GET COUNT 

sADJUST STACK 

;LOAD PORTS 

s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD SYNC REGISTER 

;WAIT FOR OUTRDY 

sLOAD PORT4 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=53504 
;SET SOM 


;LOAD PORT 
:NEXT WORD im INSTRUCTION, ROMCLK PC=53504 
ber OUT DAT 

L DONE? 


‘BR “iF NOT 

sWAIT FOR OUTRDY 

;LOAD PORT4 

ae WORD IS INSTRUCTION, ROMCLK PC=5504 


;SET SOM 

:LOAD PORT4 

“NEXT WORD +P iNSTRUCTION, ROMCLK PC=53504 
LOAD OUT DAT 

“WAIT FOR OCOR 


; THIS SUBROUTINE SPINS ON OUT READY 


CLR 
ROMCLK 
021224 
BIT 
BNE 
INC 


BNE 
ERROR 
RTS 


STMP4 


#B1T4 ,aKMP04 


;CLEAR TIMER 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 LU11 

71S OUT RDY SET? 

;BR IF YES 


; INC TIMER 
:KEEP CHECKING IF NOT DONE 
;ERROR, OUT READY NOT SET 


THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS 
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724 SUBROUT INE 


18: 


CHARSD: 


SILOLD: 


1$: 


STMP1,4(R1) ; LOAD 
;NEXT gl INSTRUCTION, ROMCLK PC=5304 


ot 
PC ,OUTRDY :WAIT FOR OUTRDY 
s;NEXT WORD IS gal aad ROMCLK PC=5304 





;AND THE CHARACTER PASSED TO IT. 
pa STMP1 
-(SP) 


:GET ST etire™ 


ADJUST S 

1. STMPO ;SET FOR *y SYNCS 

#26 ,4(R1) [LOAD PORT 
;NEXT WOR % IS INSiRUCTION, ROMCLK PC=5304 
;LOAD SYNC REGISTER 

PC ,OUTRDY ;WAIT FOR OUTRDY 

#1,4(R1) ;LOAD PORT4 


:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;SET SOM 


#26,4(R1) ;LOAD PORT4 
:NEXT WORD if INSTRUCTION, ROMCLK PC=5304 


;LOAD OUT DAT 

STMPO ALL DONE? 

1$ :BR IF NOT 

PC ,OUTRDY sWAIT FOR OUTRDY 

STMP1,4(R1) :LOAD PORT4 
;NEXT WORD if INSTRUCTION, ROMCLK PC=5304 
LOAD OUT DAT 

PC ,OCOR ;WAIT FOR OCOR 

PC 

THIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT. 
ae tes STMP1 ;GET CHARACTER 
,= (SP) ADJUST STACK 
PC. OUTROY 7 WAI 


T FOR OUTRDY 
PORT4 


; LOAD Fan are CHAR 
FOR OCOR 


PC ,OCOR : WAIT 
PC 


sTHIS SUBROUTINE FILLS THE OUT SILO 
; WITH A BINARY COUNT PATTERN 


#73, STMP1 ;LOAD COUNT 

SCHAR sFIRST TIME HERE? 
:BR IF BITSTUFF 

23 :BR IF NO 

#2 ,S1MP1 : ADD ¢ TO = COUNT 

: » STMPO :SET FOR 3 SYNCS 

#26, 4(R1) ;LOAD PORT i. 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sLOAD SYNC REGISTER 

PC ,OUTRDY “WAIT FOR OUTRDY 

#1,4(R1) “LOAD PORT4 
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cert con ced can 
me 


000026 
001276 
030412 
031062 
031064 
031062 
031612 
031062 
000400 


001300 
030260 


000000 


000020 
001276 
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000004 


030762 


031062 


031064 


001300 
000004 


001276 


150766 


2$: 


5$: 
6$: 


3$: 
4$: 


SCHAR: 


STUFLG: 


INRDY: 


1$: 


2$: 


4 PAGE 115 
UBROU 


TINES 


#26,4(R1) 


STMPO 

1$ 

PC ,OUTRDY 
SCHAR ,4(R1) 
STUFLG 

6$ 


SCHAR ,5$ 
RS,STFFCL 


SCHAR 
ee 
STMP1 

2$ 

PC ,OCOR 

PC 

SCHAR 
#-1,STUFLG 
BITCON 


#2,S1MP1 
#1,4(R1) 


2$ 





sNEXT WORD IS INSTRUCTION, ROMCLK ©C=5304 
;SET SOM 


;LOAD PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sLOAD OUT DATA 

;ALL DONE? 


;BR IF NOT 

;WAIT FOR OUTRDY 

;LOAD PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
LOAD QUT DATA 

sBITSTUFF??2? 


;BR IF NO 
IT IS SDLD SO CHECK BITSTUFFING 
;ADD ANY BIT STUFF CLOCK TICKS 
; CHARACTER 
;CHIFT COUNT 
;NEXT CHARACTER 
DONE ? 


;DECREMENT COUNT 
:BR IF NOT DONE 
;WAIT FOR OCOR 


;START PATTERN AT ZERO 
;SET BITSTUFF ae 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
SET SOM! 


“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
“LOAD GARBAGE CHAR 
"GO LOAD SILO 


:THIS SUBROUTINE SPINS ON INRDY 
cIF INRDY FAILS TO SET THE gs ar taabe AND AN 


MOV 


ROMCLK 
021244 
BIT 


INC 


BNE 
ERROR 


RTS 


anata 


STMPO 
S 


1 
37 
PC 


:SET UP DELAY COUNTER 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PORT4 LU12 

:1S INRDY SET? 

-BR YES 


; IN 
sERROR,NO INRDY 
RE TURN 


SEQ 0114 


LE EE EE ee = SS ES I 
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CZ2KCE.P11 08-JUL-80 08:24 SUBROUTINES SEQ 0115 
6? 
5 031122 SIMBCC: 
5 :THIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN 
5970 7 IN KPOLY. THE CORRECT CRC IS S$LPADRED IN CALBCC, AND lias 
ar) :STATE OF THE LSB OF THE BCC IS SLPADRED IN THE C BIT 
59735 031122 010046 MOV - :SAVE RO ON STACK 
5974 11246 0125 oote7e MOV tne pe BTRPO :STMPO = SHIFT COUNT 
5975 11 12537 001300 MOV (R5)+,STMP1 :STMP1 = CHARACTER 
5976 0311 1 3 7 031230 MOV (R5)+,CALBCC *CALBCC = OLD BEC 
5977 031140 013700 031230 1%: MOV CALBCC,RO :PUT OLD BCC IN RO 
978 1144 pooes CLC 
979 1196 7 031230 ROR CALBCC :SHIFT OLD BCC 
5980 115 7 €91300 ROR STMP1 : SHIFT CHARACTER 
5981 1156 500 ADC RO sADD CHAR CARRY TO OLD BCC 
59 1189 ROR RO :PUT BITO TO CARRY BIT 
5 11 103011 BCC 2$ CARRY IS FEEDBACK BIT 
3 0 A 013700 031226 MOV XPOLY,RO :1F FEEDBACK = 1 
985 031170 04 A Ra igae BIC CALBCC,RO sEXCLUSIVLY OR XPOLY TO CALBCC 
1174 37 031 ¢6 031230 BIC XPOLY, CALBCC 
1202 ; 031230 BIS RO, CALBCC 
1 Se 001276 2$: DEC STMPO :DEC SHIFT COUNT 
9 121 5 BNE 1$ ;BR IF NOT DONE 
5 1214 031230 MOV CALBCC,RO :PUT RESULT IN RO 
5991 1220 ROR R sSHIFT BITO TO CARRY 
599 1222 MOV (SP)+,R0 "RESTORE RO 
99 1226 RTS R5 > $LPAD 
1 XPOLY: O 
995 12 00 CALBCC: 0 
4: 000200 C8=200 
599 120001 CRC16=120001 
ho 102010 CRC. CCITT=102010 
5 
Petit 031232 BCCLD: 
ont sTHIS SUBROUTINE LOADS THE OUT SILO WITH é seus 
600 “WITH SOM SET, AND ONE CHARACTER PASSED T 
¢ WITH THE SOM BIT CLEAR (ENABLE CRC) 
1232 013637 001300 a(SP)+, STMP1 :GET CHARACTER 
1 746 aa P) “A JUST STACK 
124 12737 2 001276 #2 ‘STMPO sSET FOR 2 SYNCS 
1250 012761 000026 000004 #26,4(R1) *LOAD PORT 
10 1 104412 sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
11 1 122114 LOAD fg REGISTER 
\¢ 1 737 030412 1§: PC ,OUTRDY sWAIT FOR OUTRDY 
1 1 12761 01 000004 #1,4(R1) LOAD PORT4 
14 1274 104412 SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
15 1276 (1 gu :SET SOM 
1g 1 012761 000026 000004 MOV #26,4(R1) ;LOAD PORTS 
1 1 10441 ROMCLK “NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
8 1 12211 122110 sLOAD OUT DAT 
1 1 37 001276 DEC STMPO ;ALL DONE? 
1 1361 BNE 1$ :BR IF NOT 
6021 1 7 030412 JSR PC ,OUTRDY “WAIT FOR OUTRDY 
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P11 08-JUL-80 08:24 UBROUT INES 
031324 013761 001300 000004 MOV STMP1,4(R1) :LOAD PORTS 
031332 1 at ROMCL “NEXT WORD S| INSTRUCTION, ROMCLK PC=53C4 
031 12211 122110 ;LOAD OUT DAT 
8 1 737 030260 JSR PC,OCOR “WAIT FOR OCOR 
1 000207 RTS PC 
031344 GETQO: 
:THIS SUBROUTINE READS THE STATE OF THE TRANSMIT 
:BCC LSB AND PUTS IT IN THE CARRY BIT 
031344 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
8 1 8 OF 38. 021364 :PORT4 LU-17 
1350 106177 150520 ROLB @kMPO4 * PUT a0 IN CARRY 
031354 000207 RTS PC “RETURN 
031356 GETQI: 
:THIS SUBROUTINE READS THE STATE OF THE RECEIVE 
>BCC LSB AND PUTS IT IN THE CARRY BIT 
031356 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
031 021364 021364 ;PORT 4 LU-17 
1362 106177 150506 ROLB aKMPO4 :PuT Q6 IN CARRY 
1 106177 150502 ROLB akMPO4 *PUT QI IN CARRY 
1372 000207 RTS = RETURN 
031374 SYNLD: 
:THIS SUBROUTINE LOADS OUT SILO WITH 
72 SYNC CHARACTERS WITH SOM SET 
1374 012737 000002 001276 MOV #2,STMPO sLOAD COUNTER FOR 2 SYNCS 
1402 012761 000026 000004 MOV #26,4(R1) ;PORTS 26 
14 104412 ROMCLK NEXT oo 1S INSTRUCTION, ROMCLK PC=5304 
141 122114 122114 soap SYNC REG 
1414 737 030412 1$: JSR PC ,OUTRDY :WAIT FOR OUTRDY 
14 12761 000001 000004 #1,4(R1) “LOAD PORT4 
14 104412 sNEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
14 j ae sSET SOM 
14 012761 000026 000004 #26,4(R1) ;PORT_26 
144 Heat ;NEXT “WORD IS INSTRUCTION, ROMCLK PC=5304 
1442 122110 :LOAD OUT DATA WITH SYNC 
1444 005337 001276 STMPO “DECREMENT COUNTER 
38 001361 1$ “BR If NOT DONE 
1452 000207 PC sRETUR 
031454 SOM: 
:THIS SUBROUTINE LOADS SOM AND OUT DATA WITH A 
GARBAGE CHARACTER (0) 
1454 004737 030412 JSR PC ,OUTRDY sMALT FOR OUTRDY 
1460 012761 000001 000004 MOV #1,4(R1) 4 
14 104412 ROMCLK NEXT a 1S INSTRUCTION, ROMCLK PC=5304 
14 122111 122111 “SET S 


SEG 0116 


--_— = ee ee 


THIS SUBROUTINE LOADS SILO WITH MESSAGE 
>THE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE 
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KCE.P11  O08-JUL-80 08:24 SUBROUT INES SEQ 0117 
6078 1472 005061 900004 CLR 4(R1) :CLEAR DATA CHAR 
607 147 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1§ 12211 122110 :LOAD GARBAGE CHARACTER 
1 031502 000207 RTS PC = RETURN 
cons 
eons 031504 EOM: 
6 ;THIS SUBROUTINE LOADS EOM AND OUT DATA WITH 
*GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BCC 
0 1504 004737 030412 JSR PC ,OUTRDY :WAIT FOR OUTRDY 
60 1510 012761 000002 000004 MOV #2,4(R1) “PORTS 2 
6090 0 1516 104412 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
6091 031520 122111 122111 ;SET E 
rea 0315 104412 ROMCLK NEXT JORD IS INSTRUCTION, ROMCLK PC=5304 
609 0 1524 122110 122110 “LOAD GARBAGE CHARACTER 
6094 031526 000207 RTS PC “RETURN 
6095 
pat 031530 MESLD: 
$099 
robs ;THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE 
£103 031530 010046 MOV RO,-(SP) sSAVE RO 
6103 031532 0125 MOV (R5)+,RO :RO=MESSAGE POINTER 
6104 0315 12537 001276 MOV (RS) STMPO ;STMPO=CHARACTER COUNT 
61 5 1340 0047 7 030412 1$: JSR OUTRDY :WAIT FOR OUT RDY 
1 1544 112061 000004 MOVB (RODS 4(R1) : LOAD PORT4 WITH CHARACTER 
61 1338 eerie XT WORD IS INSTRUCTION, ROMCLK PC=5304 
61 1552 122110 122110 “LOAD OUT DATA SILO 
é] 1554 005337 001276 DEC STMPO =DEC CHAR COUNT 
6110 031560 1367 BNE 1$ -BR IF NOT DONE 
6111 1562 737 030260 JSR PC,OCOR “WAIT FOR OCOR 
6112 1 $6 012600 MOV (SP)+,RO >RESTORE RO 
113 15 05 RTS R5 RETURN 
6115 
6116 031572. CLRIO: 
611 : THIS SUBROUTINE SETS IN CLR AND OUT CLR TO 
19 “CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS 
61 ar 012761 000200 000004 MOV #B117,4(R1) sLOAD PORT4 
6121 031 104412 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61 é 122112 122112 -SET IN 
61 1602 104412 ROMCLK “NEXT WORD is INSTRUCTION, ROMCLK PC=5304 
6124 031 122111 122111 >SET OUT CLR! 
6125 1610 000207 RTS PC :RETUR 
$159 
61 031612 STFFCL: 
61 : THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS 
et 1 sFIRST ARGUMENT IS CHAR, SECOND ARGUMENT IS SHIFT COUNT. 
6132 031612 010046 MOV RO.-(SP) =SAVE RO 
6133 031614 012500 MOV (r5)+,R0 “PUT CHAR IN RO 


_ —s 


B 10 | 











K 
KCE.P11 SEQ 0118 
61 1 9 7 001302 OV (R5)+, STMP2 :PUT SHIFT COUNT IN STMP2 

61 1 1$: RORB = a0 :LOOK AT NEXT BIT 

61 1 1 BCS 2$ -BR IF A MARK 

et : : 032010 CLR BITCON z1T WAS A SPACE, CLEAR 1°S COUNTER 
61 1 010 2$: INC BITCON :INC CONSECUTIVE 1°S COUNTER 
oi? ; 7 pte 032010 oF #5 .BITCON 71S iT ver? 

ore 1 7 032010 CLR BITCON :YES! $0 START AGAIN 

614 1 ; 1 DATACLK, 1 GIVE EXTRA TICK TO STUFF ZERO 
9366 1 1302 3$: DEC STMP2 :DEC SHIFT COUNT 

2 O12 $ 4 (SP) RO aRESTORE RON 

eo, e 

i 1696 800505 RTS RS >RETURN 

14 

1 031672 STFFCK: 
61 THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER 
61 ¢ 31S STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT 
6154 :1S THE CHARACTER, SECOND ARGUMENT IS SHIFT COUNT. 

155 1672 010046 MOV RO,-(SP) SAVE RO 
61 $ 1674 01 MOV (R5)+,RO :PUT CHAR IN RO 
61 167 125 001302 MOV (R5)+,STMP2 :PUT SHIFT COUNT IN $TMP2 

1 : 1 1$: RORB RO :SHIFT OUT NEXT BIT 

1 17 1 : BCS 2$ >BR IF IT IS A MARK 

1 17 0 032010 CLR BITCON ;1T WAS A SPACE, CLEAR 1'°S COUNTER 
$} 4 1g BR 3% : CONT INUE 

1 $3 32010 2$: INC BITCON INC CONSECUTIVE I'S COUNTER 

61 1720 7 000005 032010 CMP #5,BITCON :5 IN A ROW YET? 
6164 17 Rie BNE 3$ :BR IF NO 
6165 17 037 032010 CLR BITCON :YES, SO START OVER 

1 17 413 00090) DATACLK, 1 sEXTRA TICK TO STUFF ZERO 

1 1740 737 030226 JSR PC,GETSI :LOOK AT WINDOW 

1 1744 1 BCC 3$ -1S IT A ZERO, BR IF YES 
61 1o06 ! ERROR 30 :NO. ERROR ZERO WAS NOT STUFFED 
6) 0 17 001302 3$: DEC STMP2 :DEC SHIFT COUNT 
617 1754 2 BNE $ :BR IF NOT DONE 
S178 BHnG8. Gooses wae 

7 : 
ss 
O18 031762 CTSDLY: 
617 sTHIS SUBROUTINE WASTES TIME UNTIL CTS SETS, 
oz BUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS OUT 
61 1762 6 MOV RO,-(SP) :SAVE RO 
6181 1764 1 00 000032 MOV #32,R0 *LOAD RO WITH COUNT 
61 17 7 147250 147246 18: CMP aSTKS aStxs *WASTE TIME 
61 177 5 DEC RO :DECREMENT COUNTER 
61 1 BNE 1$ :DO IT AGAIN IF NOT = 0 
6185 MOV (SP)+,RO :RESTORE RO 
¢ 20 RTS PC * RETURN 
4} 
61 032006 000176 FLAG: *B<01111110> :FLAG CHARACTER 
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P11 OB=JUL-80 08:24 SUBROUT INES SEQ 0119 
032010 000000 BITCON: 0 
000 125252 MESDAT: BYTE 0,125,252,377 
16 = =6001. «2 002, 004 «~FLIDAT: .BYTE 1,2.4,10,20,40,100.200,376,375, 373, 367,357, 337,277,177 
O21 91992040 
4 100 400376 
ia ie 73 (367 
tts 732 337 277 
036 100 140 160 STUFDT: .BYTE  100,140,160,170,3,300,174,176,177,1 
032041 170 003 300 7 
066 176 #4176 #177 
047 001 
32050 = «363 847s BYTE 363, 347,317,200,0,377, 377,377,200, 37 
053 200 000 377 
032056 377 377 ~« 200 
032061 037 si 
032062 046200 047111 020105 EM1: | .ASCIZ <200>/LINE UNIT INITALIZATION TEST/ 
032120 046200 047111 020105 EM2: | -ASCIZ <200>*LINE UNIT REGISTER READ/ONLY TEST* 
032163 200 044514 042516 EM3:  -ASCIZ <200>“LINE UNIT REGISTER WRITE/READ TEST“ 
032227 200 0644514 042516 EM4:  -.ASCIZ <200>/LINE UNIT INTERNAL CLOCK FAILURE/ 
O32 1 200 051124 047101 EMS: § :ASCIZ <200>/TRANSMITTER DATA ERROR/ 
032321 200 042522 042503 EM6:  -.ASCIZ <200>/RECEIVER TEST/ 
25386 051200 041505 044505 EM7: -ASCIZ <200>/RECEIVER DATA ERROR/ 
032365 200 047515 042504 ASCII <200>/MODEM SIGNAL ERROR/ 
032410 052200 044510 020125 “ASCII <200>/THIS ERROR COULD BE CAUSED IF YOU HAVE V.35 AND / 
032471 g00 052501 047524 -ASCIZ <200>/AUTOSIZED. IF V.35, MANUALLY ANSWER QUESTIONS/ 
032550 052200 640522 051516 EM11: “ASCIZ <200>/TRANSMITTER CRC ERROR/ 
032577 200 042522 042503 EM12: <:ASCIZ <200>/RECEIVER CRC ERROR/ 
032628 200 047111 041040 EM13: -:ASCIZ <200>/IN BCC MATCH ERROR (LU REG 12)/ 
03 663 200 0511246 047101 EM14:  <ASCIZ <200>/TRANSMITTER FAILED TO GO TO MARK STATE/ 
0 : 3-200 «040503 046102 EM15: -ASCIZ <200>/CABLE DATA TEST/ 
032754 043600 040514 020107 EM16: .ASCIZ <200>/FLAG ERROR/ 
032770 052200 040522 051516 EMI7: —-ASCIZ <200>/ TRANSMITTER FAILED TO STUFF A ZERO/ 
033034 051600 044527 041524 EM20: .ASCIZ <200>/SWITCH PAC TEST/ 
033055 200 041101 051117 EMZI: —-ASCIZ <200>/ ABORT ERROR/ 
033072 052200 040522 051516 EMZ2: —.ASCIZ_<200>/ TRANSMITTER ERROR/ 
03311 200 040510 043114 EM23:  .ASCIZ <200>/HALF DUPLEX TEST/ 
033137 200 «052517 (020124 EM24:  <ASCIZ <200>/0UT READY NOT SET/ 
033162 044600 020116 042522 EM25: -:ASCIZ <200>/IN READY NOT SET/ 
033204 042600 050130 041505 DH1:  .ASCIZ <200>/EXPECTED FOUND/ 7 
03 25 200 054105 042520 DH2:  .ASCIZ <200>/EXPECTED FOUND LU-REGISTER/ 
033263 00 044103 051101 DH3:  :ASCIZ <200>/CHARACTER BIT THAT FAILED/ . 
033321 00 047503 051122 DH4:  :ASCIZ <200>/CORRECT CRC BIT THAT FAILED/ 
033361 200 054105 042520 DHS: ASCIZ <200>/EXPECTED FOUND  SHIFT/ 
033413 200 054105 042520 DHé: ASCIZ <200>/EXPECTED FOUND CHARACTER  SHIFT/ 
033461 00 046102 041517 DH?: ASCIZ <200>/BLOCK END NOT SET/ 
033504 051200 051524 042060 DH10: [ASCIZ <200>/RTS DID NOT CLEAR/ 
033530 EVEN 
033530 000002 p11 2 
033532 = -003—Stié«é07 BYTE 3,7 
033534 001274 $REGS 
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08:24 SUBROU 


002 


007 
016 
002 


017 
002 


021 
002 


011 


011 


002 


011 
011 
002 


011 
011 
007 
001 


011 
011 
007 
001 


007 
002 


DT2: 


DTS: 


DT6: 


DT7: 


DT10: 


DT11: 


T 


E 121 
INES 
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SEQ O1°uU 


— oo 
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033716 


033726 


033730 


CZKCE ptr 36A(1052) 
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000002 
031930 
001302 


000001 


O8-JUL-80 08:24 PAGE 122 
24 SUBROUTINES 


D112: 2 
004 -BYTE 6,4 
CALBCC 
002 -BYTE 6,2 
STMP2 
CORMAX: 
END 


SEQ 0121 


reenter te 


Fi 
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1489 26468 


CZKCE.P11 08=JUL-80 08:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0122 
951 992 | 
951 994 | 
951 995 
951 966 
951 996 
951 997 
951 1606 
951 1007 
951 1008 
951 1009 
951 1010 
951 1011 
951 998 
951 999 
951 1000 
951 1001 
951 1002 
951 1003 
951 1004 
AD 951 1005 
ADEVCT= 000000 951 957 
ADEVA = 000000 951 993 
ADRCNT 0066 2098* 2113* 21224 
ADVANC= 104420 22674 5694 5777 
AEN = 0000C we 951 = 962 
900000 951 963 
elelelelele 4 4 
Titetetets 951 983 
951 986 
951 989 
951 973 
951 981 
951 984 
951 987 
951 959 
951 960 
951 953 
951 974 
951 982 
951 985 
951 988 
951 956 
951 
1823 19284 
1816 1884 19264 2328 
19254 
1818 1886 19274 
149) 29278 
951 964 
951 955 
1528 1549 15884 
951 958 
15274 
951 965 | 
| 
| 
| 


j 









ZKCE MACY11 30411052) O8-JUL-80 08: 
CZ2KCE.P11 08-JUL-80 08:24 
AVECTI= 951 999 
AVECT2= 951 991 
BASE 2938* 2949 
BCCLO 4385 4614 
BINWRD 2170 2173 
{pa 5936* 6137 
BITO = 1 £148 2635 
ai tee s 1 8044 814 
BiT01 = 2 8034 813 
Py = 8024 812 
B1T05 = 0 8014 811 
B1T04 = G 8004 810 
BiT05 = 0 7994 809 
81106 = 100 7984 808 
BIT07 = 200 7974 807 
BiT08 = 400 796m 806 
B81T09 = 001000 7954 805 
BIiTl «= 2 8134 1696 
BIT10 «= See hoe 7948 82789 
81111 = 004000 7934 #1759 
3882 3914 
4685 4753 
aire = 4444 7924 §=2720 
BiT15 = 02 7914 2723 
BIT14 = tit 7908 1741 
BIT15 = 1 7894 861436 
atte = 8124 1496 
BITS = 114 bie 
BIT4 «= 104 41 
5960 
BITS 8094 2924 
BiTg B08# 2424 
BIT 8074 2425 
4B 8064 2801 
BIT 8054 2798 
be 24678 2770 
BPTVEC= 8214 
BRLVL 2879 2889 
1642 1776@ 
CALBCC 03512 4404 4433 
5041 5071 
5728 5774 
CHAR 44 3915 3965 
CMARSD 556 58794 
CHRCNT 10 2168" 2171 
CKSWR 11340 1467 1782 
CKSWR1 414 25048 2516 
CKSWR $ 25074 
CKSWR $20 
KSWR4 5108 2518 
CKSURS 54 2493 2495 
CLKX 45 ‘a 
CLRIO $7 4 4409 
CNERR 1§ 1561 24678 
CNT .RA 30 1040 13134 
CNVRT = 10441 1558 667 








G 10 
24 PAGE 125 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2963¢ 73a 

4462 4491 4539 4568 4616 
2174 114 

6139« 6140 6142* 6160* 6162+ 
2436 

2429 2435 2436 2808 

3381 3415 3460 3519 3572 
3964 4003 4042 4081 4123 
sah 4925 4991 5240 5513 
2735 2792 2810 3075 4254 
2734 2759 2810 2821 4256 
1637 2436 2745 2755 4272 
2819 4293 

2442 2444 3496 3923 3973 
3078 3438 3550 3603 3656 
2425 2814 3831 3891 

2544 2924 3468 3928 4270 
2803 2816 2818 2824 2827 
2824 2827 2882 2884 

2897 29108 

448) 4510 4558 4587 4635 
5092 5168 5211 52/0 5291 
5976* 5977 5979* 5985 5986* 
004 4043 4082 4209 58528 
2175 2191" 2209% 2210 

2274 24928 

2525 

2499 25344 

4457 4486 4534 4563 4611 
1435 1437 1439 2572 

1669 1671 1673 2266# 2309 


4645 
6163 


4640 


2311 


Sartre ee 


60014 
6165* 61904 
3678 «©3732 

4325 4379 

5620 5716 

4291 4321 

5618 = 5714 

4345 

4051 4090 

4167 5530 

4296 4348 

4722 4790 

5361 5437 

5990  5995# 
6116# 

2386 2507 


3792 
4456 


4350 


5579 


4352 


5802 


6120 


4872 
5632 


SEQ 0123 


3852 
4610 


5844 


5020 
5688 


ae eee ee 





CZKCE MACYI1 
CZ2KCE.P11 0 
CONERR 011110 
CONN a 
CONTAB 3330 
CONVRT= 104416 
CORMAX 033730 
CR = 000015 
CRC.CC= 18 010 
CRC16 = 1 1 
CREAM 001502 
CRLF «= go 
CSR 10 
CSR Here 
CTSOLY 031762 
CYCLE AE y'94 
DATABP 006764 
DATACL= 104413 
DATAHD 752 
DDISP = 108095 
DELAY = 104411 
+ i 3342 
OHIO 088804 
ne 033225 
DH rt 3 
DH4 1 
cat 
ON9 3 61 
DISPLA 1242 
DISPRE 174 
DSWR = 177570 
oT! 3530 
DT10 
OT11 
ge Sie 
bts ti 
DT4 572 
DTS 
44 2 
oT 0 
DZDME 

DAG 


laalaslaalaalastaal =) 


30A(1052) O08-JUL-80 08: 
B-JUL-80 08:24 

556 24674 
24674 2725 
1565 5738 
1508 1564 
62084 

294 1862 
59984 
4382 4411 
5264 5334 
10394 16434 
7308 1833 
24674 2672 
26484 
uy 

164 1704 
2298* 2301 
22624 3422 
3691 3692 
4084 4125 
4494 4541 
4838 4852 
5118 $120 
5522 5527 
2297* 2319 
7364 8924 
22604 

1531 15784 
1089 092 
1152 62084 
1071 1074 
1086 1134 
1104 62084 
1098 1101 
1116 1119 
1146 62084 
9214 1453 
8824 1459 
7354 8914 
1090 1093 
1120 1126 
1135 ited 
1138 62084 
1072 1075 
1087 1150 
1105 62084 
1099 1102 
1111 1114 
1117 1123 
1067 

1067 1172 
8244 

1070 62084 
1094 62084 
1097 1103 
1100 1112 
1106 1169 


24 PAGE 126 
CROSS REFERENCE TABLE -- 


22658 


2325 


4488 
5719 
2569 


1167 
62084 


1144 


1156 





——— ee 


H 10 


USER SYMBOLS SEQ 0124 
4565 4615 4642 4690 4758 4845 5014 5065 
2575 

3533 3547 3585 3586 3600 3638 3639 3653 
3796 3826 3856 3886 3917 3967 4006 4045 
4211 4387 4388 4416 4417 4464 4465 4493 
4618 4619 4647 4648 4704 4706 4772 4774 
4900 4935 5007 5021 5042 5072 5093 5111 
5292 5312 5341 5362 5380 5387 5389 5400 
6166 

1143 1170 62084 

1164 62084 

62084 

1171 62084 

1165 62084 

62084 

62084 











GNS = eeeeee 


HALTS 006770 


HILIA ao00 
HY : 11 
INCHAR 011546 


MACY11 306A(1052) 
1 = 08 JUL~80 08:24 


CZKCE 

CZKCE.P1 

EM14 0 
ris ues 
by 754 
Emi 770 
im 120 
—M20 

EMD2 33 
Emos O88115 
EM24 033137 
EM25 8 16 
En 1 
EMG 8 7 
EMG 21 
ER? , 
EOM 1504 
acter 

ERCTOI 10 
WU 14 
ERCT 0 
ERCT 4 
ERCTOS 

ERCT 

epey 0 
RCT10 4 
ERCT11 50 

HP 54 
RCT! 

ERCT14 

ERCT15 0 

peers 74 

ERCTI 400 

ERR es 

ERRMSG 38 
ERRPC 2 
ERR = t 
ERT é 
EXIT «= 

EXITER 6 
FLAG 
FLOAT 6 
FLTDAT 

FY 

GE TQ] 

GE TQO 

GETS! 


O8-JUL-80 08:24 PAGE 127 


ww 
<hnauee asians 


won l— 


VON Mh 
ne WNW 
Wo Venu 
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oO 
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6208# 


1166 
62084 


5000 


62084 


5004 


1749* 


5249 


1752* 


1 10 
CROSS REFERENCE TABLE -- USER SYMBOLS 


5254 


5638 


5642 


5646 





5734 


60844 
60394 
60294 
4855 4859 
5100 $112 
5381 5390 
2262 2265 


SEQ 0125 


ere eee 


Ltt tl ti 


J 10 
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CZKCE.P11 08-JUL-80 08:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0126 
INIFLG 001506 1064 1462 1492 1499« 
INLP1 5766 21008 2109 
INPUT = 10441 2648 2608 2659 2671 2679 2761 2769 
INRDY 031066 4127 4173, 4212, 42200 4228 «= 49364949 4954513405148 = 5153 «5177—Ss«5191 
51 $403 5417 5422 5443 5457 5471 5476 5534 5544 5552 5652 5668 
$673 5739 «= «5754S «5759 Ss«5 9488 
NITY 013664 2689 2710 2720 2741 29188 
LOTVEC= 000020 8226 
001470 1033 14676 = 1601" +=91602 «2559-2573 = 2654" 2839% 2845 2846" 2850 2875 29418 
011176 1567 24678 
002100 12¢80 
110 12334 
120 12580 
21 1263 
140 12688 
150 1253# 
160 12588 
170 12638 
00 12684 
10 12738 
20 12788 
12834 
40 12884 
50 1293a 
70 18034 
O46 12ite 1527" 154 1548" 1577 1707 1774 2389 2443 2577* 2586 2634 29918 
1212# 2426" «2425 = 24.29% =. 2435e = 236% = 2442e = 2444e =—2586e = 2587e = 258 B 
07 12134 2588* 2589" 2590 
147 10344 1430 1684  2652* 2666* 2831* 2832 2840 2842 
2074 1214# 2413 2419 2656 2661 2590 2591* 2592 5789 5802 5844 5960 6035 
6045*  6046* 
K 00207 1215# 2430" 2592  2593« 
KMRLVL  0C 12084 1677 1678  2595*  2596* 2597 
Ke OC 1207# 1677* 1710 2578  2579% 2595 
KMS100 OC 10 12 Y] 
KMS101 0021 12348 
KMS! ; 0021 12398 
KMS103 0021 12448 
KMS104 00214 12498 
KMS! 00215 12548 
KMS106 0021 1259 
KMS107 0021 12644 
KS110 x 12698 
KMS111 00221 12748 
RRS 11g r 12798 
KMS11 12848 
KMS114 4 12898 
ERSI16 00996 13998 
ER It? Y 1Soee 
102104 12304 
102114 12354¢ 
KMS Q 124 12408 
KMS 1 12458 
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Wow ~ex¢ 
222 228 & 


= 


w 
ag a 


MPMINMINIPIPY 
SSL So = 
efela 
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NO WNMRWUIUIRI NOP POP PONOAD 
S23 
VQalas 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


2599* 
2598* 


1501 


1787 
4453* 





2600+ 
2599 


1511 


2128+ 
4485* 


2572¢ 


Kx 10 


2569 


2305 
4530+ 


2571 


3097* 
4562* 


2648 


3113* 
4607* 


2653 


3140* 
46539* 


2867 


3156* 


rt — -—— - 


2944 


3183* 


2948 


3206* 


SEQ 0127 


3242+ 


5247 
5645 
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P11 08-JUL-80 08:24 CRCSS REFERENCE TABLE -- USER SYMBOLS 


~ 


C 
C 





AL 007717 1639 4678 
MNE 100 1593 4674 
MOL v i‘ rey 2709 
mp AS 76 1670 24678 
MP’ A 756 2385 2402 24678 
a Hh os "ee, 24678 2624 
MS 104410 <cane 2391 3042 3068 3099 3142 3185 
59 3518 3571 3624 3677 3731 3791 
ig22d9ng«a9B? $286 SS42 SRSA 
001000 890% 1466 
01 2308 24678 2609 
007754 1658 24674 
010574 24674 27640 
001442 10194 2127 2347 2989«* 3015*  3040*  3066* 
3342e 3378% 3412* 3457* 3516+  3569%  3622« 
3910" 3960* 3999% 4038* 4077* 4116* 4159 
4606* 4682+ 4750* 4820* 4922+ 4985* 5234* 
omeae 5789* 5790* 5791* 5792* 57944 
011057 1478 24678 2561 
po ngse 1529 15514 
010324 24674 2660 
030260 3421 3466 3529 3582 3635 3688 3749 
5521 5526 5587 5647 5735 5797# 5803 
003220 1543 15464 1569 
1464 10314 6208 
0412 3388 3525 3573 357 3626 3631 3679 
49 4996 5245 $517 5583 5817 5826 
5917 6012 6021 605 6074 6088 6105 
002302 13148 
OC ‘). 13174 
0231 13208 
008316 13234 
ii 13264 
002896 13298 
00% 13324 
i 13350 
‘i Sate 
0 13448 
a . 1 47f 
0 ‘ 1 SO” 
009372 1386 
0; Fé ys ee 
f 4a 
ehhh 2 24088 
7 6 
8398 2341 
8378 
8418 
24678 2688 
29354e 2940" 2953 29748 
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ww 
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POND OP NGO 
Se xee eee 
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2 CROSS REFERENCE TABLE -- 


2910 


WWNPN POR ToOrN fr 
22 2aB 


ONUNNEN NUE ww 


Sue 
“IOC 


Sein ey 
SAWS OO 


ee 


S Sez 


OUW Sans FO Ew 
Ses eee 
eue SS vel =) roy 


SH MIDNIUNE  EE tm 


1 


867 
16 


36* 


2374 


869 
2879« 


2380+ 


4256 
4345 


M10 


USER SYMBOLS 


2915 
2889* 


2399* 


5927+ 


3202 


4573 


4268 


2400* 


4291 





4407 


4775 


4350 


4436 


4847 


5618 


Se Se ste ene 


4484 


5016 


5714 


SEQ 0129 


4513 


5067 


LLL LL LLL LLL CL 


N 10 
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C2KCE.P11  O8=JUL-80 08:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0130 
SIKLMAT= 177776 7338 | 
STRTSW 001446 10 as 14680 1471* 1472 1476 1488* 1496 1496 1591 1637-1644 2602s 2625 | 
STUFDT 61994" | 
STUFLG 4120* 4163* 5921 5935*  5945# 

$v05 21384 

SWFLG 1431* 2503* 2530* 25364 

SWR 92 1452* 14546 1458* 1468 1596 1601 1741 #411759 1783 2275 2280 2336 


234 2345 2372 2392- see 2492 2529s 


864 
7768 786 1472 1488 2655 2863 
7754 A § 1644 2602 2625 








7744 84 
7734 783 1591 
tt 
toon, pe 
7684 778 2343 
7674 777 1783 
7854 
76 2345 
eee 2275 
7634 2280 
7624 
7614 
7844 
7834 
7824 
7814 
7804 
7794 
ie 
794 3824 3854 3884 5807# 
Y a 3 oe 4759 4830 4928 4995 5244 5516 5582 5621 5622 5717 5718 60508 
T 217 eua0" 2445" 2651% 2463% 246828 =%3345% 3351% %3354% %3360* 
226 387 3918 3968 4007 4046 4085 4262 4285 4329 
TKVEC 82684 
2628 57784 
TPVEC 8278 
TRAPVE= 8254 
Wiyees 4 ° ¥ 
TST 40 1 2615 2633 29878 
erie 3 182 ‘San, 
ret i 4 (88168 
stig 416 18 eed 
TST14 516 2 3764 
Tele Oleese ot er 
ES 6152 3055 Seize 
TST2 4214 2989 30134 


SEQ 0151 
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CZKC 
CZKCE.P1 08-JUL-80 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0132 
¥CSR 1 1667 17054 
KERR 1 H 3 17148 
XHEAD 101 1500 24678 
POLY 12 $ 4 43 sedis 4459 4488 4536 4565 4613 642 4690 758 5 
* * * ® y t ’ é * + 4 * 4845* 5014« 5065e 
$g6ne 5334* 5623 5719* 5984 5986 59944 
MSTATG 0112 1509 st te 
XTSTN 71 2309 3544 
XVEC 1 HH 17084 
ZERO ange 10308 6208 
SAPTHO 20 1182 11884 
SASTAT= seenee \ 1906 1921 
SATY T¢¢ 1877 18794 
ATY' § 6 1875¢ 
04 1821 18768 
4714 187 2531 
\¢38 9174 
1572 9924 2938 
1222 9128 
1226 9144 
1576 9948 2935 
140 9954 
67 1838* 1848* 1855 1864* 18694 
SCKSWR= teeees 2253 
SCMTAG 1 4's 
SCM 9320 9334 9344 9354 9364 937% 9384 
9328 9334 9348 9358 9364 9378 9384 
4 'y 473 
9394 9408 . 9414 9424 9434 
20284 
0552 2002 20278 
= eeeeee 686 
SCPUOP 001344 9664 
SCRAP = 177777 14 29768 2979 29828 3002% 3005 30084  3027# 3030 30334 30534 3056 30594 
30834 50894 3126# 3129 31328 31694 3172 31754 32284 3231 32344 32818 
3284 ‘ru 33054 308 33118 33298 3332 3335# 33644 3367 33718 33984 3401 
34054 3446 50# 35018 3504 35094 35544 3557 35624 36074 3610 36154 
36604 713#@ 3716 37228 3779 37824 38064 3809 38124 38368 
839 & 3872¢  3896# 39034 39478 3950 39534 39868 3989 
9924 40254 4028 40314 4064# 4067 40708 41034 4106 4109 41448 4167 4152" 
1 4237# 4240 42448 63058 430 431148 43614 4364 43684 44384 
hs 4465@ 45154 4518 45228 45924 595 45998 4669# 4672 46758 4737#% 740 
48054 481354 49088 11 4915# 49678 49784 52158 5218 52278 
54954 5498 55034 55618 5564 55678 984 56084 56954 5698 57044 
SCRLF 1313 94548 1837 1872 2007 2027 2 2108 2159 2304 2312 2607 2667 
bwO 1402 9968 2943 
$00W1 14 9978 
$00w1 1426 «1 
$00w1 14 10074 
$0Dw1 14 10084 
$0DW1 14 10094 
$ODW14 14 10104 
$0015 1440 10114 
ooout sath 9984 
$00 141 9994 
$00W4 001412 10008 


ee 


D 11 
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CZKCE.P11 08=JUL-80 08:2 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0133 
$DDWS 001414 10014 
$0 1416 10020 
SDDW 1420 100 
S00uB 001422 1004s 
$0 1424 1005« 
SDEVCT 001326 9578 
SOEVA 001574 9938 2941 
SDOAGN 004100 1682 1691 «1696 ~=—Ss:1702 
SENDAD 004070 876, 1464 = 1698" 2334 
SENDCT 004054 16938 
SEN 001336 9og# 1445 14811483 1816 1884 190823282494 
SENVM 001 9634 1486 1818 1823 1886 
SEOP 003662 16614 5711 
SEOPCT 04046 16908 1694 
SERFLG 00120 O34 1432* 1664* 1726 1755 1757* 1778 22858 2299 23138 23878 
SERMAX 001215 9094 1778 
SERROR 12 866 22748 
SERRPC 001216 9104 1461* 1685* 1734* 2282 2284+ 2388s 
SERRTB 001512 1064# 2295 
SERTTL 00121 9074 1676 1716 2362" 2584: 
TABL 001336 9614 
SETEND 001442 10148 1194 
SFATAL 001320 954# 1912s 
SFFLG 005142 1875 1878* 1906 1915* 19234 
SFILLC 001256 9284 1841 1872 
SFILLS 00125 9278 1872 
ADR 001220 O11" 
AT 001224 9138 
| $GET42 0 16958 
SGTSWR= weeere Y 2252 
$HD = 696 
$SHIBTS 0020 11898 
SHIOCT 005722 2075*  2086# 
SICNT 001204 906# 1763" 1764 1766" 1777 
SILLUP 007316 2364 2380 24040 
$1 3724 20918 2264 
SINT 1235 9188 
SITEMB 001214 9084 2290" 2330 
$LF 1314 946# 1872 2017 2027 2087 
SLFLG 005141 1916« 19228 
SLPADR 001206 905# 1443" 16438 1647 1770 1772 1777 2347" 2349 2623" 2633" 2635 
SLPERR 00121 
SMADR1 001350 9798 
SMADRE 001554 9838 
SMADRS 001 9 
SMADR4 001 9898 
SAIL 001316 9528 1190 1194 1769 1816 
SRAMS! 001546 9738 ©2937 
SRARSE 001 9818 
SMAMSS 001 9 
SMARS4 001 9878 
SMBADR OC "1 
005140 1876" 1882 1917" 19218 
SANEW 005552 20318 2509 
0013 9598 1892* 1895 
001 334 18978 


SO ERE OE ~ ee 
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aug 


5 
p Cc 
Sze 


RESESEES 
soreness 





225 
Nu 


1890 
2506 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


1898* 1910 


2982 2984 
3059 3061 
31438 3169 
3289 3296 
3364 3371 
3459 34604 
3615 3617 
373284 3776 
3844 3851 
3947 3953 
4040 40414 
4152 4154 
42544 4305 
4447 4455 
4669 4675 
4822 48234 
5227 5229 
5577# 5598 
1872 
ice eee 
664 194 
4113# 41568 
49828 52314 
1753 1765 
1675 1687* 
23644 2399 
2010 2027 
2148 6208 
1575 21420 
2150 6208 
2151 6208 
sia 6208 
215 6208 
Sty 015 
241 32454 
34604 516 
3819 38228 


1914* 


29918 
306 


2084 


2149 


— 11 


3002 3008 
30694 3083 
3177 3185 
3305 3311 
3380 33818 
3509 3511 
36254 3660 
3784 3791 
866 3872 
3962 39634 
4070 4072 
41628 4190 
4313 4320 
4515 4522 
4684 46854 
915 4917 
5237" 5495 
5610 5617 
31368 1794 
37264 7864 
42688 43154 
55714 56124 
1705 1713 
2087 2107 
3040 30434 
32974" 3318 
3569 35724 
38528 863879 


ee 


LALA AIA ON AIA At 
OO NO UWA | OO 
on oo— Oo—-@ea— 
OO Sf VUODWOWO OO 


2630 


2702 


3069" 


3342 
36258 
3910 


2718 


3096 
eee 


39134 


ww 
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CZKCE P11 08-JUL-80 08:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0135 
40028 4038 40418 4077 4080% 4116 4119# 4159 41628 4205 4208# 4251 42548 
4318 43218 4375 43798 4452 44568 4529 45334 4606 4610# 4682 4685" 4750 
4753# 4820 48238 4922 4925# 4985 4988" 5234 52378 5510 5513#@ 5574 5577# 
5615 56184 5711 57148 
SSAVRE= seeess $636 
SSAVR6 1342 73* 2381 2382*  2383* 24068 
E 1 862 17334 2907 
SSETUP= 1686 1734 1936 2033 
SSVLAD 16 1750 17684 
SSVPC = 40 8748 879 
SSWR = 164000 if 696 94 G46 1658 1686 1697 1703 1705 1727 1728 1729 1730 
1761 1753 1755 1756 1757 1758 1759 1771 1777 2403 2988 3014 3039 
3065 3138 3181 3240 3293 3317 3341 3377 3411 3456 3515 568 
3621 5674 3728 788 3818 3848 3878 3909 3959 3998 4037 4076 4115 
4158 4204 4250 4317 4374 4451 4528 4605 4681 4749 4819 4921 4984 
5233 5509 5573 5614 5710 
1340 1780 1447 
STESTN 0013522 9554 1769« 
STIMES 1310 1686* 1758* 1764 1767* = =61777 
1246 1740 1934 1951 1957 2496 2498 2540 2920 
001244 9228 861738 1934 1949 1955 2538 2918 6182 
127 1502* 2469 2875* 2876* 5812* 5824+ 5858* 5869" 5904" 5915* 5956" 5962 
5974* 5988* 6008+ 6019" 6054"  6065* 6104" 6109 
001300 9394 1503" 2671 5165*  5166* 5167 5208* 5209* 5210 54354 5435* 5436 5488+ 
5489« & 5685*  5686* 5687 S771* S5772* 5$773 5856* 5872 5882* 5885 5899* 
5903* 5930* 59357* 5975* 5980* 6006* 6022 
STMP2 001302 9404 1505* 1526* 1553 1562+ got; g66; 2666 2778* 4952e 4953" 5151 §5152¢ 
5167* 5168 5194* 5195* 5210+ 211 420* 5421* 5436* 4 5474e 5475* 5490+ 
pe 4 5671*  5672*  5687* 5757* =865758* S5773* 5774 6134* 6144* 6157* 6170+ 
STMPS § §=©001304 9414 1506* 2475 2675 2678 2683 2686 2765 2768 2773 2776 
STMP4 01306 9428 1507" 24677 2658* eor5° 2861 5840* 5846+ 
$™N == 000060 14 696 2986 29884 12 30148 3037 30398 063 30654 3093 3095" 3 
31384 3179 3181" 32 52408 91 32934 3315 33178 3 33418 3375 33778 
3409 34114 ete. 34564 3513 3515¢ 3566 55684 619 36214 3672 36748 8 3 
7284 3786 7884 3816 3811 846 38484 3876 38784 3907 39094 3 59594 
996 39984 4035 4037# 4074 40768 4113 41158 156 41584 4202 42048 4248 
4250# 4315 4317# 4372 43749 4449 44514 4526 45288 4605¢ 4681" 
4747 47498 4817 48198 491 49218 4982 4984" 5 52338 55094 1 
5573#@ 5612 56144 5708 57108 
et 5 9254 1861" 1872 2279* 2543* 29238 
STPFLG 125 929% 1810 1872 
TPS 001250 9248 1859 1872 2277 2541 2921 
STRAP ik iH 22278 
STRAP2 36 22384 2249 
STRP = 21 22428 822518 2253 22548 2255H 22568 22578 22584 22598 2260 22618 2262 22638 
22648 22654 2266 22678 22 
STRPAD 50 2232 8622498 
STSTM one 11914 
STSTNA 1202 9028 1442* 1726 1768* 1769 1771 1778 2356 2410 2612 2619 2621 2988+ 
S014* 3039" 3065" 3095" 3138* 3181* 3240* 32938 33178 353412 33772 34118 34568 
35i5* 3568" 3621" 3674 3728* 3788+ 3818* 3848 3878"  3909*  5959* 39982 4037 
4076* 8 4115e 4158* 42062 4250" 4317" 43742 4451% 4528 46605" 4681% 4749¢ 48198 
4921" 4984" 5233* 5509" 5573* 5614* 5710 
STIYIN 005520 977 1978 1990 2008 2022 20268 
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P11 08-JUL -£25 08:24 CRO: > REFERENCE TABLE -- USER SYMBOLS SEQ 0136 
= seeeee $63! 
= se0eee $1 
414 1810% 1903 2242 2250 
o¢6 1840 1847 1854 18594 1860 
674 1865 1867 18704 
STYPOC= seeees 2251 
1330 95 
; 4 119 
2 9654 
1 9904 2939 2940 
1 9914 
poooee ty M68 
= 
$$GE14= 000000 16978 
S4OCAT= seeene 1761 
= 033730 8564 858 8614 874 8754 8778 8794 8814 8854 889" 8998 947 10334 
10344 10354 10364 10658 +1172# #1178 11798 11818 11834 12264 ##%12284 #12298 # 12308 
123518 12338 12348 12354 12368 12384 12398 1240 12418 12638 12448 12458 12468 
124684 12698 12508 12514 12538 12548 12558 12564 12584 12598 12608 12614 12634 
12648 12654 12664 12688 12698 1270 %(12718 12738 1274# 12754 1276# 12784 12798 
12808 12814 12834 12848 12858 12868 12884 12898 1290 12914 12938 12944 12954 
12964 3+ ad 12998 13008 13018 #13038 +1304 #«$1305% 13008 #1470 1480 15874 1600 
1705 1777 1778 1872 19248 934 20264 2027 20338 #2087 2376 2405 24488 
os Fa 24854 2539 2542 2563 2656 2697 2805 2809 2855 2886 2919 2922 
fe 4255 4269 4292 4322 4351 4902 $122 5391 62084 
006060 21278 2267 
130 Seon 
164 100% gee 
4& 2262 24398 
733 2260 24128 
7 $ seze ity 
1 1484 2258 
4 $c6) 24288 
1344 2257 
17828 2256 
¢ 2 +4 14278 1643 2526 
R $12 226 24504 
SASTA= teeeee 1876 1879 
= 002034 11784 #81183 
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CZKCE.P11 08-JUL-80 08:24 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0137 
ms 
ERROR 5 3025 3051 3081 3111 3124 3154 3167 3201 3222 3257 3275 3303 3327 
3 7 $362 3396 5431 3441 3480 3 3499 3538 3542 3552 3591 3595 3605 3644 
8 5 369 3701 3711 3758 3762 3 3834 3864 3894 3926 3938 3945 3976 
397 4015 4023 4054 4062 4093 4101 4134 4180 4219 4227 4235 4281 4303 4357 
4397 4401 4426 4430 4474 478 4503 4507 4551 4555 4580 4584 4628 4632 4657 
4661 4714 4718 4782 4786 4857 4861 4878 4882 4894 4903 4943 4962 5026 5030 
5047 5051 5077 5081 5098 5102 5114 5123 5141 5161 5170 5184 5204 5213 5276 
5280 5297 5301 5317 5321 5346 5350 536 5371 5383 5392 5410 5430 5439 5450 
ager eye: 5493 5532 5541 5551 5559 5596 5659 5681 5690 5746 5767 5776 5848 
ESCAPE 8294 
TPRI 344 
7 i 
KMEND 1% 1648 
ht 3 7 686 
NEWTST 8598 2986 3012 3037 3063 3093 3136 3179 238 5291 3315 3339 3375 3409 3454 
5515 5566 3619 3672 3726 3786 3816 3846 3876 3907 3957 3996 4035 4074 4113 
4156 4202 4248 4315 4372 4449 4526 4603 4679 4747 4817 4919 4982 5231 5507 
5571 5612 5708 
+344 1918 1919 2076 2392 2393 2966 
SH 8294 1879 1881 2050 2366 2372 2929 
REPORT i] 8298 
SCOPE 7248 44 3013 3038 3064 3094 3137 3180 3239 3316 3340 3376 3410 
5514 38f 3620 3673 3727 3787 3817 3877 3908 3958 3997 4036 4075 4114 
4157 4203 4249 4316 4373 4450 4527 4604 4680 4818 4920 4985 5232 
tees 738 5613 5709 
SETTRA ¢ age 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 
SETUP 504 
SKIP so 
ie Be 
STARS : 94 872 895 947 950 1175 1184 1656 1723 1795 1874 1933 1939 1968 
é ¢f20 2362 2378 986 3012 3037 3063 3093 3136 3179 3238 3291 3315 3339 
409 3454 3513 3566 5619 3672 3726 3786 3816 3846 3876 3907 3957 3996 
4035 4074 4113 4156 4202 4248 4372 4449 4526 4603 4679 4747 4817 4919 
ys 5231 5507 3s‘ 557 5612 5708 
22034 
9” 
1# 1512 


38 4515 4592 
37 
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shes 


1 11 
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E .P11 08-JUL-80 08:24 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0138 
SBUF FE Ww 479 
SCDATA 6864 598 5695 
SCORP. ‘se oH 3921 3933 3940 3971 3980 4010 4019 4049 4058 088 097 215 3 
4 4 421 422 
4231 495 5156 5199 5425 5479 5676 5762 
SCRC 6864 4380 4409 4457 4486 4534 4563 4611 4640 
SCRCSH 6864 s$22 4753 
SCYCLE Vs 50 
SEMPTY 6864 495 
OP 14 1668 
SERTBL _— 4 
SF INI 14 #865778 
FLAG 6864 
SFLOAT 6864 3187 3207 3246 3263 
SGETPA iT ] 
SHALF 686% 5561 
SHE ADE 4 696 
SINACT 6864 5776 3806 3836 3866 
SINIT 6864 
SLINE' 6864 3169 3228 
$LU1 6864 976 3002 3027 3053 
ee Uls 6864 083 
$LU1 6864 126 
SMARH I i] 
SMARK 6864 4190 
SMATCH 6868 4946 5144 5187 §413 5467 5664 5750 
SOCK 4 
EM 6864 4237 
1# 2667 
t 6864 
SPASEN iT] $8 
6864 410 4144 
1# 2357 
6864 tt 6039 
4 4 2671 2679 2761 2769 
i# 414 2417 2454 2459 3018 3044 3070 3102 3104 3115 3117 3145 3147 
158 160 3191 3193 3212 3214 5249 3251 3267 3269 3297 3321 3347 3356 3383 
5 389 3417 3419 3424 3434 3462 3464 3469 3473 3483 3493 3522 3527 3548 
5 ; 580 3601 3628 3633 3654 8 3 3707 3738 3742 3747 37 3797 3827 
85 7 3919 3929 3931 9 3978 4008 4017 4047 4056 4086 4095 4128 4168 
4174 ry Ht 4221 4229 4260 4263 4283 4286 4327 4331 4338 4693 4697 4701 4731 
476) 4765 4769 7 4937 4950 4955 b 5135 5149 5154 5163 5178 $192 5197 
5206 5404 5418 423 5432 5444 +58 5472 5477 5486 5528 5535 5545 5555 5580 
5589 5653 3668 5674 5683 740 5755 5760 5769 5787 800 5815 5819 5822 5828 
5 5842 5860 5873 886 5889 906 5910 5913 5919 5939 5941 5958 
6014 6017 6023 6033 6043 6056 6060 6063 6076 6079 6090 6092 6107 6121 
4908 
3896 =—s_- 33947 398606=—s_ («4025 4064 
1016 
1734 
1773 
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CZKCE 


SSTUFF 


minke 
3383 
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ee ee ee ee ee ee a ee ee ee ee ee ee ee ee a ees 


. & ee eee ee, ee ee ee ae 
2222222222 222222222 
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See 

~U— 
O~r 
= 22. ” 
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w 
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i hw 
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wie & 
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Win & 
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WOW 
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J 11 


CROSS REFERENCE TABLE -- MACRO NAMES 


SEQ 0139 


a ee 


K 11 
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CZKCE.P11 08-JUL-80 08:24 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0140 


ERRORS DETECTED: 0 
CZKCE Fearn elas Oc iSeas Cor CIRCE AAC .CERCE .PT1/EO:D20RE 
R ONDS 


mnt a 103/58=1.7 
E USED: (105 PAGES) 


me —— oo 
Se ee a ne i COCO ES ES ww 


